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IDENTIFICATION 


PRODUCT CODE: AC-F924B-MC 

PRODUCT NAME: CZRMNBOQ RMO05/3/2 FUNCTIONAL TEST, PT 2 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF .ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPORATION 
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1.0 INTRODUCTION 
1.1 ABSTRACT 


THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 
WHICH _USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE 
RMO5/3/2 DISK SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE 
FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
bE IR! gle INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE ODRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RMO5/3/2 SUBSYSTEM, INCLUDING 
THE MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RUN IN 
SEQUENCE, STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE, 
READ AND WRITE CHECK OPERATIONS USING DATA. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO5/3/2 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RH MASSBUS CONTROLLER, THE RMO5/3/2 MASSBUS ADAPTER, 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PACK IS REQUIRED 
ont TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 


THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMOS/3/2 SUBSYSTEM 
FUNCTIONAL TEST: 


esa BR tg ai 

KM 

KW17=L OR KW TP CLOCK 
PROGRAM LOADING DEVICE 
TERMINAL 


RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5*S, RMO3'S OR RMO2"S) 


Pa. (Wwew0r 7 
SEQ OC! 
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2.2 MEDIA REQUIREMENTS 


EACH UNIT BEING TESTED ‘ane: BE ie WITH A SCRATCH DISK _ PACK 
BEFORE TESTING BEGINS ON UNIT. THE DISK MUST BE FORMATTED AND 
CONTAIN A READABLE COPY OF THE MEG AND USR BAD SECTOR FILES. 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
RMO5/3/2 DISKLESS TEST, PART 1 & 2 
RMO5/3/2 FUNCTIONAL TEST, PART 1 


aeuiiieesstie 


3.0 OPERATING PROCEDURE 
3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


~PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
-XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 


SW15 HALT ON ERROR 
SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
Swi 3 ey ERROR TYPEOUTS 


UNU 
SwW11 INHIBIT TEST ITERATIONS 
SW10 BELL ON ER ot 

SWO9 LOOP ON ERR 

SwO08 LOOP ON TEST. IN SWO7-00 


THE LOW ORDER 8 SWITCHES (SWO7-SWO0), ARE USED IN CONJUNCTION WITH 
oo Ping SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
L : : 


3.5 STARTING 


_ THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL TEST CONDITIONS. 
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3.4 HALTING 
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 


NOTE: IF THE PROGRAM IS HALTED BY ANY OTHER MEANS, BAD HEADER 
INFORMATION MAY BE LEFT ON THE DISK PACK. THIS OF COURSE 
a ON WHICH TEST IS BEING PERFORMED AT THE TIME OF THE 


3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. ALSO, A WARNING MESSAGE IS_ TYPED, 
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM IS 
HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 
OCCUR IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D. AND WARNING 
MESSAGE.(SEE SECTION 4.1) 


THE FIRST QUESTION TYPED OUT IS: ‘‘TYPE HELP TEXT (L) N ?°’. 
IF THE OPERATOR RESPONDS WITH A ‘'Y’*, THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A ‘N’* AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 


ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
usar MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 


EXAMPLE 1 
RMCS1=176700 <CR> sNO CHANGE IN ADDRESS 
RMVEC=000254 <CR> ;NO CHANGE IN ADDRESS 
EXAMPLE 2 


RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> ;CHANGE VECTOR ADDRESS TO 260 


ON THE INITIAL START, THE NEXT QUESTION TYPED IS, ‘TYPE ‘‘A’* 10 
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TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN’. THEN, "DRIVE(S):* IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN ‘‘A’*, TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING CF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
"CARRIAGE RETURN'’. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS, ONLY THE “DRIVE(S):* PROMPT IS TYPED. 


THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 


"UNIT STATUS: 


NOT PRESENT 
NOT PRESENT 
NOT AN RMO05/3/2 
NOT PRESENT 
NOT PRESENT’ 


WO & WR S| © 


THE ABOVE UNIT STATUS SHOWS THAT DRIVE O WILL BE TESTED, WHILE DRIVES 


1 - 7 WILL NOT BE TESTED. 


THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASFD ON THE 
STATUS OF THE DRIVE: 


"DRIVE(S) TO BE TESTED, 0' 


IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 


TYPED TO THE OPERATOR: 
"DRIVE(S) TO BE TESTED, NONE’ 


THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 


ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 


"DRIVE 0° 


AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 


NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 


OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 
L=LETTER. 


4.3 PROGRESS REPORTS 


SEQ 0006 
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AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF FASS REPORT IS AS FOLLOWS. 


"END OF PASS r 


THE FOLLOWING MESSAGE a ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT 


"TOTAL ERRORS SINCE LAST REPORT 0° 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HAL7S 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION GF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF _ THE 
UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 


NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 


THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF, YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 


THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 
DRV4 0 — RMO3, TESTH 14, ERRA 326, PC=016654 


MASSBUS DATA BUS PARITY ERROR ‘MDPE"’ (RMCS2, BIT 8) DETECTED 
DURING WRITE COMMAND 


040300 0700 

RMCS1 RMCS2_—s- RMDS RMER1 RMER2 RMAS 

144252 040700 010700 fo ag “i ea 000000 

RMWC RMBA RMDA RMEC1  RMEC2 
aay” 104604 000002 910000 600000 004066 000000 


RMMR2 = RMDT RMSN 
000010 011777 024026 177777 


4.7 EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 6 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 35 SECONDS. 


Neen ccnc nner seat ienetesnanissaeetsnietpavemiti tan to sthsanniteneiatanat teen oth eunnine SS ee ee 
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5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 

THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP=11 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 
THE RMO5/5/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 
DUAL _PORT LOGIC IN THE RMO05/3/2 ADAPTER BUT IS EXECUTABLE ON 


RMO5/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM05/3/2 
SUSBYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 
THE RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM 


WILL EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 
VERIFY MODE. 


5-6 XXDP COMPATIBILITY 
THE RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 


DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RMO5/3/2 IS THE XXDP LOADING DEVICE. 


5.7 OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


‘ 


S 


SEQ 0008 
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TEST DESCRIPTION 


1 CONTROLLER ACCESS TEST 
PURPOSE : 


TO VERIFY THAT THE UNIBUS ADDRESS OF THE SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION $BASE. 


PROCEDURE : 


THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
USING THE $BASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 


IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A_ STAND 
ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $BASE 
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


2- 31 WRITE/READ HEADER AND DATA (FORMAT) TESTS 
PURPOSE : 


TO TEST WRITE HEADER AND DATA AND READ HEADER AND DATA 
FUNCTIONALITY OF THE RMO5/3/2 SUBSYSTEM USING A SET OF VARIABLES 
Snetres WORD COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR 


PROCEDURE : 


ALTHOUGH EACH TEST EXERCISES A DIFFERENT VARIABLE, THE 
GENERAL PROCEDURE OF EACH TEST JS _ THE SAME. THE DRIVE IS 
INITIALIZED AND RECALIBRATED IF ‘PIP’ OR ‘'SKI"' ARE ACTIVE SO THAT 
THERE ARE NO ERRORS WHEN A TEST BEGINS. FOLLOWING THAT, THE TEST 
PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR THE CONDITIONS OF THE 
TEST. REGISTERS ARE PRESET AND THE WRITE HEADER AND DATA COMMAND 
IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE, THE TEST STORES 
ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE 
OTHER STATUS CHECKS. IF THERE ARE NO PRIMARY ERRORS, THE TEST 
VERIFIES THE RESULTS OF THE WRITE COMMAND AND THEN CHECKS FOR 
SECONDARY ERRORS. LOOP. ADDRESSES ARE MODIFIED FOLLOWING THE 
SUCCESSFUL COMPLETION OF THE WRITE COMMAND IN ORDER TO SHORTEN 
EXECUTION TIMES AND ENHANCE SCOPING LOOPS, THEN THE PROGRAM 
EXECUTES THE READ HEADER AND DATA PORTION OF THE TEST, VERIFYING 
THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 


SEQ 000% 
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NOTE: THE SECTOR USED DURING A TEST MAY DIFFER FROM THE PROGRAM 
LISTING BECAUSE THE f®ROGRAM SUBSTITUTES A GOOD SECTOR, IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE. 


2 FORMAT ZEROS TEST 


THE TEST SEEKS TO CYLINDER Q, THEN WRITES HEADER AND DATA ON 
SECTOR 0 IN 18 BIT FORMAT. THE HEADER AND DATA *IELDS ARE ALL 
ZEROS, rae THE DEVICE TO USE NORMAL WRITE GATE. THE HEADER 

AND DATA ARE READ AND COMPARED WITH THE WRITE BUFFER. THE 
INITIAL SEEK POSITIONS THE HEAD SUCH THAT THERE IS NO _ IMPLIED 
SEEK. THE TEST IS REPEATED FOR 16 8IT FORMAT. 


3 ZERO FILL TEST TEST 


THE TEST EXECUTES A SEEK TO CYLINDER O TO INSURE THAT THERE 
IS NO HEAD MOTION DURING DATA TRANSFER. THIS IS FOLLOWED BY A 


SIZE OF THE HEADER WHICH CAUSES THE RH TO ZERO FILL THE DATA 
FIELD. THE READ HEADER AND DATA COMMAND THAT FOLLOWS READS A 
FULL SECTOR AND VERIFIES THAT DATA WAS ZERO FILLED. 


4. FORMAT CHECK ZEROS TEST 


THE TEST WRITES HEADER AND AN ALL ZEROS DATA FIELD. THEN 
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THERE 
ARE NO ERRORS. 


5 FORMAT CHECK ZEROS W/ WCE ERROR TEST 


THE TEST WRITES HEADER AND AN ALL ZEROS DATA FIELD. AFTER 
COMPLEMENTING THE LAST WORD OF THE WRITE BUFFER, THE TEST 
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THAT 
THE CORRECT WRITE CHECK ERROR IS DETECTED. 


TEST 6 FORMAT ONES TEST 
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THE TEST WRITES HEADER AND AN ALL ONES DATA FIELD, THEN 
READS THE HEADER AND DATA, VERIFYING THE READ BUFFER WITH THE 
WRITE BUFFER. THE ALL ONES FIELD IS A CONSTANT FREQUENCY, AND 
THE DRIVE SHOULD USE NORMAL WRITE GATE. 


7 FORMAT CHECK ONES TEST 


THE TEST FORMATS AN ALL ONES DATA FIELD, THE PERFORMS A 
See CHECK HEADER AND DATA COMMAND, VERIFYING THAT THERE ARE NO 


10 FORMAT CHECK ONES W/ WCE ERROR TEST 


THE TEST FORMATS AN ALL ONES DATA FIELD, THEN COMPLEMENTS 
THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK HEADER AND DATA 
COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 


11 FORMAT MULTIPLE SECTORS TEST 


THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. THE WRITE HEADER AND DATA COMMAND 
FOLLOWS, WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE SAME 
SECTORS ARE VERIFIED WITH A. WRITE CHECK HEADER AND DATA COMMAND. 


12 FORMAT WITH HEAD SWITCHING TEST 


THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO _ HEAD 
MOTION DURING DATA TRANSFER. * WRITE HEADER AND DATA COMMAND 
STARTS WITH CYLINDER 0, TRACK 0, SECTOR 31. THE WORD COUNT IS 
EQUAL TO MULTIPLE SECTORS which CAUSES THE SUBSYSTEM TO SWITCH 
FROM TRACK 0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPL® SECTORS 
ARE WRITTEN. THE SAME SECTORS ARE VERIFIED WITH A WRITE CHECK 
STG. AND DATA COMMAND, USING THE SAME WORD COUNT ANL STARTING 
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13 FORMAT WITH MID-TRANSFER SEEK TEST 


THIS TEST gt tt: Ma iii SECTORS STARTING WITH CYLINDER 0, 
LAST TRACK AND S R 31., CAUSING A MIDTRANSFER SEEK AFTER THE 
FIRST SECTOR IS DRITIEN, THE SAME SECTORS ARE VERIFIED WITH WRITE 
CHECK HEADER AND DATA COMMAND. 


14 FORMAT WITH IMPLIED SEEK TEST 

THIS TEST SEEKS TO THE LAST CYLINDER PRIOR TO WRITING HEADER 
AND DATA ON CYLINDER Q. THE EXPLICIT SEEK INSURES THAT THERE 
WILL as MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF THE WRITE 


C THE SAME OPERATION, INCLUDING THE EXPLICIT SEEK IS 
REPEATED FOR READ HEADER AND DATA. 


15 FORMAT EACH SECTOR ADDRESS TEST 


HEADERS AND DATA OF EACH SECTOR ON CYLINDER 0, TRACK O ARE 
FORMATTED AND READ WITH THE PROGRAM VERIFYING HEADERS AND DATA. 


16 FORMAT EACH TRACK ADDRESS TEST 


THIS TEST FORMATS SECTOR OQ OF EACH TRACK ON CYLINDER OQ AND 
READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND DATA. 


17 FORMAT PRIME CYLINDERS TEST 


THIS TEST FORMATS AND READS SECTOR 0, TRACK 0 ON EACH PRIME 
ua behian CYLINDERS. 1, 24:9, Oss Tbe, Sue ., 128.. 256, 


20 READ HEADER & DATA IN LAST SECTOR TEST 


THIS TEST READS HEADER AND DATA ON THE LAST SECTOR OF THE, 
DISK, I.£., AND VERIFIES THAT ‘‘LBT’’ STATUS SETS. 


ee 
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21 READ HEADER & DATA W/ AOE ERROR TEST 


THIS TEST READS MULTIPLE SECTORS STARTING WiTH THE LAST 
SECTOR 31. AND VERIFIES THAT AOE STATUS SETS. 


22 READ INVALID SECTOR ADDRESS TEST 


THIS TEST USES AN ILLEGAL SECTOR ADDRESS AND VERIFIES THAT 
IAE STATUS SETS.. 


25 READ INVALID TRACK ADDRESS TEST 


THIS TEST USES AN ILLEGAL TRACK ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. | 


24 READ INVALID CYLINDER ADDRESS TEST 


THIS TEST USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


25 FORMAT AT OFFSET TEST 


THE PROGRAM SETS OFFSET MODE AND EXECUTES A WRITE HEADER AND 
werk alban VERIFYING THAT OFFSET MODE IS RESET BY THE WRITE 


26 IVC FORMAT TEST 


VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE. THE TEST THEN EXECUTES A WRITE HEADER AND DATA COMMAND AND 
VERIFIES THAT INVALID COMMAND STATUS SETS. THE TEST IS REPEATED 
FOR READ HEADER AND DATA COMMAND. 


SEQ 0015 
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TEST 27 FORMAT ERROR TEST 


TEST 


A SINGLE SECTOR IS FORMATTED WITH THE OFFSET REGISTER SET 
FOR 16 BIT FORMAT AFTER WHICH THE SAME SECTOR IS READ IN 18 BIT 
FORMAT WITH THE PROGRAM VERIFYING THAT FORMAT ERROR STATUS IS 
SET. | THE SAME PROCEDURE IS oY tome WITH THE SFCTOR WRITTEN IN 
18 BIT FORMAT AND READ IN 16 BIT FORMAT. 


30 & 31 FORMAT HCE TEST (1ST AND 2ND HEADER WORDS) 


THESE TWO TESTS WRITE AN INCORRECT HEADER THEN READ THE 
HEADER AND VERIFY THAT THE CORRECT HEADER ERROR IS DETECTED. THE 
TESTS SETUP THE CORRECT HEADER, THEN COMPLEMENT BIT O AND USE THE 
MODIFIED BUFFER TO WRITE THE HEADER. THE PROCESS IS REPEATED 
UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED. 


SEQ 0014 


ee re ee = eee ee 
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479 
480 


48) 


482 


483 
484 


001100 
104000 
000004 
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:*LAST REVISION 04-APR-81 


~TITLE CZRMNBO RM05/3/2 FCINL TST 2 
:*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT CORPORATION 

¢ *COLORADO SPGS., CO. 80919 


: sPROGRAM BY MIKE LEAVITT 


 sTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
s *PACKAGE (MAINDEC=11=DZQAC-C5), 18-MAR-81 


“SBTTL OPERATIONAL SWITCH SETTINGS 


ea epnepeneeee oe He eH RHR ee 


SWITCH USE 
15 HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 


UNUSED 
INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
oe TEST IN SWR<7:0> 


CO —NMWEUOA NOOO — PWS 


-SBTTL BASIC DEFINITIONS 
;* INITIAL +a OF THE STACK POINTER *** 1100 *** 


STACK = 
ERROR = EMT :sBASIC DEFINITION OF ERROR CALL 
SCOPE = JOT :sBASIC DEFINITION OF SCOPE CALL 
ater + pints DEF INITIONS 
= 11 : CODE gg ty TAB 
F = 12 ::CODE FOR LINE FEED 
CR = 15 ::CODE FOR CARRIAGE RETURN 
CRLF = 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
<M ie = 177776 ; PROCESSOR STATUS WORD 
STKLMT = 177774 >;STACK LIMIT REGISTER 
PIRQ = 177772 ;:PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 ; sHARDWARE SWITCH REGISTER 
DDISP) = 177570 ; sHARDWARE DISPLAY REGISTER 
; *GENERAL PURPOSE REGISTER DEFINITIONS 
RO = %0 :;GENERAL REGISTER 
R1 = 41 ;;GENERAL REGISTER 
R2 = ke ;:GENERAL REGISTER 
R3 = 43 ;;GENERAL REGISTER 


i rene oe 


A A Re te 


Scene 


A > 
A i at 


Dé 
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SEQ 0016 
000004 RS = %4 3;GENERAL REGISTER 
000005 R5 = 35 3:GENERAL REGISTER 
000006 R6 = %6 3;GENERAL REGISTER 
000007 R7 = %7 3:GENERAL REGISTER 
000006 sP = %6 :: STACK POINTER 
000007 PC = 27 ; PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 : PRIORITY LEVEL 0 
000040 PR1 = 40 ;;PRIORITY LEVEL 1 
000100 PR2 = 100 :zPRIORITY LEVEL 2 
000140 PR3 = 140 ;z;PRIORITY LEVEL 3 
200 PR4 = 200 : PRIORITY LEVEL 4 
000240 PR5 = 240 :zPRIORITY LEVEL 5 
300 PR6 = 300 s;zPRIORITY LEVEL 6 
090340 PR7 = 340 : PRIORITY LEVEL 7 
3*' ‘SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 Sw15 = 100000 
040000 Swi4 = 40000 
020000 Sw13 = 20000 
0000 SWwi2 = 10000 
004000 SW17 = 4000 
2000 Sw10 = 2000 
001000 SwO9 = 1000 
000400 Sw08s = 400 
200 Sw07 = 200 
000100 Sw06 = 100 
000040 Sw05 = 40 
20 SWw04 = 20 
000070 Sw03 a 19 
000004 ‘SwO02 = 4 
2 Sw01 = 2 
Swood 2 ] 
001000 SW9=SWO9 
SW8=Sw08 
SwW7=Sw07 
000100 SW6=SW06 
009040 Sw5=Sw05 
000020 SW4=SW04 
000010 Sw3=Sw03 
000004 SW2=SwO02 
000002 SW1=Sw01 
000001 Sw0=SwWO00 
:*DATA Bit DEFINITIONS (E1700 TO BIT15) 
00000 BIT15 100000 
040000 BIT14 = 40000 
20000 BI1T13 = 20000 
010000 BIT12 = 10000 
04000 BIT11 = 4000 
002000 BIT10 = 2000 
BITO9 = 1000 
00 BITO8 = 400 
00 BITO7 = 200 
000100 BITO6 = 100 
0 BITO0S = 40 


Se re ne sr re eee eee 


CZRMNBO RMOS/3/2 FCINL TST 2 


. BASIC DEFINITIONS 


@ 

— 

~ 

= © 

oN 
“wun 
—fNye—fy 


BIT 

BIT9=B1T09 
BIT8=B1T08 
BIT7=B1107 
BIT6=B1T06 
BIT5=BIT05 
BIT4=BIT04 
B1T3=B1T03 
BIT2=BIT02 
BIT1=BITQ1 
BITO=B1T00 


oo 
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;*BASIC *'CPU"’ TRAP VECTOR ADDRESSES 
4 TIME OUT AND OTHER ERRORS 
nese AND ILLEGAL INSTRUCTIONS 


: TRACE TRAP 
: BREAKPOINT TRAP (BPT) 
i: INPUT/QUTPUT TRAP (IOT) **SCOPE** 


fo 

© 

“ 

<= 

m 

oy 
wHrinnk ht t un tt 


-SBTTL RM REGISTER BIT 


DVA = BITT1 
F4 = BITOS 
F3 = BITO4 
F2 = BITO3 
FI = BITO2 
FO = BITO1 
GO = BITOO 
FNCMSK = 000077 
s FUNCTION 

OP = 0 
ILFO2 = 000002 
SEEK = 000004 
RECAL = 000006 
DRVCLR = 000010 
RLEASE = 000012 
OFFSET = 000014 
RTC = 000016 
RIP = 000020 
PAKACK = 000022 
PACACK = PAKACK 
ILF 24 = 000024 
ILF26 == 000026 


; ;POWER F 


AIL 
‘RMP’ TRAP (EMT) **ERROR** 
:; TTY KEYBOARD VECTOR 
:zTTY PRINTER VECTOR 
: PROGRAM INTERRUPT REQUEST VECTOR 
DEFINITIONS 


:*RMCS1 CONTROL STATUS REGISTER 


natty AVAILABLE~READ ONLY 
;sFUNCTION CODE 
:FUNCTION CODE 


:FUNCTION CODE 


sFUNCTION CODE 
>FUNCTION CODE 


:GO BIT 
:FUNCTION CODE MASK 


CODES (BITS 01-05 OF RMCS1) 
000000 :NOP C 


OMMAND 
> ILLEGAL COMMAND 


>SEEK COMMAND 
:RECALIBRATE COMMAND 
:DRIVE CLEAR COMMAND 


:RELEASE COMMAND 


COMMAND 
;RETURN TO CENTERLINE COMMAND 


OFFSET 


sREAD IN PRESET COMMAND 
sPACK ACKNOWLEDGE COMMAND 


; ILLEGAL COMMAND 
> ITLLEGAL COMMAND 


ss nent ne 


CZRMNBO RMO5/3/2 FCTINL TST 2 
RM REGISTER BIT DEFINITIONS 


513 000030 
516 000030 
000032 
. 000034 
000036 
000040 
000042 
006044 
000046 
517 000050 
518 000052 
519 000054 
520 00056 
521 000060 
522 000062 
523 000064 
524 000066 
525 000070 
5 000072 
527 000074 
528 000076 
529 
530 
531 
532 
533 010000 
534 004000 
535 002000 
536 001000 
537 000400 
538 , 
539 
540 000020 
541 . 000010 
542 000004 
543 000002 
544 000001 
545 
546 
547 177400 
548 000377 
549 
550 
551 
552 10 
553 040000 
554 020000 
555 010000 
556 004 
557 002000 
558 001000 
559 000400 
560 000200 
561 9001 
562 1 
563 
564 


TRACK & mit: MASKS 
177400 


TADMSK 
SADMSK 


DISK ADDRESS REGISTER 
Fe rag ADDRESS DEF INITIONS 
A16 BITI12 


DRIVE STATUS REGISTER 


-.. 2 
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000074 
000076 


000377 


: DEFINITIONS 


+ SEARCH COMMAND 


L COMMAND 
WRITE CHECK DATA COMMAND 
;WRITE CHECK HEADER AND DATA 
; ILLEGAL COMMAND 


COMMAND 
TE DATA COMMAND 


; OMMAND 
;READ HEADER AND DATA COMMAND 
OMMAND 


s ILLEGAL C 


: ILLEGAL COMMAND 


; TRACK ADDRESS 16. 
; TRACK ADDRESS 8. 

: TRACK ADDRESS 4 

: TRACK ADDRESS 2 

; TRACK ADDRESS 7 


:SECTOR ADDRESS 16. 
:SECTOR ADDRESS 8. 
;SECTOR ADDRESS 4 
;SECTOR ADDRESS 2 
;SECTOR ADDRESS 1 


; TRACK ADDRESS MASK 
;SECTOR ADDRESS MASK 


ATTENTION tbh y 

; COMPOSITE ERR 

:POS1 TONING in. PROGRESS 
;MEDIUM ON LINE 

;WRITE LOCK 

;LAST BLOCK TRANSFERRED 
: PROGRAMMABLE 


“DRIVE PRESENT 


sDRIVE are 
; VOLUME VALID 
OFFSET MODE ACTIVE 


SEQ 0018 


CZRMNBO RMOS/3/2 FCINL TST 2 
RM REGISTER BIT DEFINITIONS 


115760 


000377 


002000 


000100 
003700 


100000 
040000 


MACRO YO4.00 4-APR-81 


DCK = BIT15 ;DATA CHECK ERROR 
UNS = BIT14 sDRIVE UNSAFE 
OP] = BIT13 sOPERATION INCOMPLETE 
DTE = BIT12 :DRIVE TIMING ERROR 
WLE = BIT11 ;WRITE LOCK ERROR 
IAE = BIT10 ; INVALID ADDRESS ERROR 
AOE = BITO9 : ADDRESS OVERFLOW ERROR 
HCRC = BITO08 ;HEADER CRC ERROR 
HCE = BITQ? s HEADER COMPARE ERROR 
ECH = BITO6 CC ‘HARD’ ER 
WCF = BITOS “WRITE CLOCK FAILURE 
FER = BIT04 :FORMAT ERROR 
PAR = BITOS :PARITY ERROR 
RMR = BITO2 sREGISTER MODIFICATION REFUSED 
ILR = BITO1 SILLEGAL REGISTER 
ILF = BITOO : ILLEGAL FUNCTION 
NDTMSK = DCK!DTE!WLE!AOE!HCRC!HCE!ECH! WCF FER 
>’ NDTMSK'' IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 
> COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 
:*RMAS ATTENTION SUMMARY REGISTER 
ATNMSK = 377 :MASK FOR ATTENTION BITS 
:*RMLA LOOK AHEAD REGISTER 
SC4 = BIT10 :SECTOR COUNT = 16 
SC3 = BITO9 :SECTOR COUNT = 8 
SC2 = BITO8 sSECTOR COUNT = 4 
SCI = BITO7 sSECTOR COUNT = 2 
SCO = BIT06 sSECTOR COUNT = 1 
SCTMSK = 003700 :SECTOR COUNT MASK 
;*RMMR1 MAINTENANCE REGISTER 41 
;WRITE ONLY BITS 
DBCK = BIT15 ;DEBUG CLOCK 
DBEN = BIT14 :DEBUG CLOCK ENABLE 
DEBL = BIT13 :DIAGNOSTIC END OF BLOCK 
DTO = BITI2 sDIAGNOSTIC TIMEOUT 
MCLK = BIT11 :MAINTENANCE CLOCK 
MRD = BIT10 sREAD DAT 
MUR = BITO9 : UNIT READY 
MOC = BITO8 [ON CYLINDER 
MSER = BITO? ; SEEK ERROR 
MDF = BITO6 sDRIVE FAULT 
MS = BITO5 ;SECTOR PULSE 
MwP = BITOS ;WRITE PROTECT 
MI = BITO2 ; INDEX PULSE 
MSC = BITO1 ;SECTOR COMPARE 
DMD = BITOO :DIAGNOSTIC MODE 


sREAD ONLY BITS 
OCC = BIT15 


G 2 
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sOCCUPIED 


ee A EE SNS eecewen teste <element 


~ LE LLL TT 8 TT 
' 
| 
' 


CZRMNBO RMO5/3/2 FCTNL TST 2 
RM REGISTER BIT DEFINITIONS 


677 


100000 


040000 
020000 
004000 


020024 
024024 


010000 


000200 


001777 


100000 
04 
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OFFSET REGISTER 


RUN AND GO 
"END OF BLOCK 


“HEADER AREA 
“ CONT INUE 


sWORD CLOCK 
sENABLE ECC OUT 
;WRITE DATA BIT 
;LAST SECTOR 


[LAST SECTOR AND TRACK 
:DIAGNOSTIC MODE 


;NOT SECTOR ADDRESSED = 0 
TAPE DRIVE = 0 
:MOVING HEAD = 


: 
: DRIVE REQUEST REQUIRED 


:SINGLE PORT DRIVE TYPE (RMO2) 
sDUAL PORT DRIVE TYPE (RMO2) 


:16 BIT WORD FORMAT 
sECC INHIBIT 

sHEADER COMPARE INHIBIT 
;OFFSET FORWARD 


DESIRED CYLINDER ADDRESS REGISTER 


MAINTENANCE REGISTER #2 


RG = BI7T14 
EBL = 81713 
REX = BITI2 
ESRC = BIT11 
PLFS = BIT10 
ECRC = BITO9 
PDA = BITO8 
PHA = BITO7 
CONT = BITO6 
wC = BITOS 
EECC = BITO4 
MwD = BITO3 
LS = BITO2 
LST = B]TQ1 
DMD = BITOO 
: *RMDT 
NSA = BIT15 
TAP = BIT14 
MOH = BIT13 
DRQ = BIT11 
SNGPRT = 020024 
DULPRT = 024024 
; *RMOF 

FMT16 = BITI2 
EC] = BIT11 
HC] = BIT10 
OF D = BITO7 
: *RMDC 

CYLMSK = 001777 
> *RMMR2 

a ONLY BITS 

= BIT15 

Ros = BIT14 
TAG = BIT13 
TST = BIT12 
CC = BIT11 
CH = BIT10 
BBO9 = BITO9 
BBO8 = BITO8 
BBO7 = BITO?7 
BBO6 = BIT06 
BBO5 = BITOS 
BBO04 = BITO4 
BBO3 = BITO3 
BBO2 = BITO2 
BBO) = BITO1 
BBOCO = BITOO 


sMASK FOR CYLINDER ADDRESS 


;PORT A REQUEST 

;PORT B REQUEST 

> TAG CONTROL 

s COMMAND SEQUENCE TEST BIT 
;CONTROL OR CYLINDER TAG 
an OR HEAD TAG 


SEQ 002! 


ii - 


Poi 


CZRMNBO RMO5S/3/2 FCTNL TST 2 
RM REGISTER BIT DEFINITIONS 


000076 
000077 


100000 
040009 
020000 
002000 


3 *RMER2 


ILRG76 
IDXMSK 
. SBITL 


;*RMCS1 


Sc 
TRE 
MCPE 
PSEL 


ERROR REGISTER 2 


PROGRAM MNEMONICS 


RM REGISTER INDEX VALUES 


- 
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BIT15 
BIT14 


77 


:BAD SECTOR ERROR 


;LOSS OF SYSTEM CLOCK 
:LOSS OF BIT CLOCK 


DEVICE 


CHE CK 
;DATA PARITY ERROR 


sMANUFACTURING DETECTED SECTOR ERROR 
sUSER DETECTED SECTOR ERROR 


:CONTROL STATUS REGISTER #1 
:DISK ADDRESS REGISTER 
sDRIVE STATUS REGISTER 
sERROR REGISTER #1 
sATTENTION SUMMARY REGISTER 
;LOOK AHEAD 
;MAINTENANCE REGISTER 


REGISTER 


:DRIVE TYPE REGISTER 
SERIAL 
;OFFSET REGISTER 


: DESIRED SN REGISTER 


:HOLDING REGIST 


; MAINTENANCE ig Sia #2 


sERROR REGISTER 


ZECC POSITION REG! STER 
ECC PATTERN REGISTER 
REGISTER 5 


> ILLEGAL 


;MASK FOR REGISTER INDEX NUMBER 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #1 


SE EESTI ee 


; SPECIAL —_ ONL Y 


; TRANSFER ERR 


:MASSBUS CONTROL BUS PARITY ERROR=READ ONLY 


:PORT B SELECT 


SEQ 002" 


CZRMNBO RMOS/3/2 FCINL TST 2 
_ RR CONTROLLER REGISTER BIT DEFINITIONS 


001000 
00 


176700 
120254 


A17 = BITOS 
A116 = BITO8 
RDY = BITO7 
IE = BITO6 
:*RMCS2 
DLT = BIT15 
WCE = BIT14 
UPE = BIT13 
NED = BITI2 
NEM = BIT11 
PGE = BIT10 
MXF = BITO9 
MDPE = BITO8 
OR = BITO?7 
IR = BITO6 
CLR = BITOS 
PAT = BITO4 
BAI = BITO3 
U2 = BITO2 
U1 = BITOT 
U0 = BITOO 
UNIT SELECT MASK 
UNTMSK = 7 
>*RMCS3 
APE = BIT15 
DPEH] = BIT14 
DPELO = BIT13 
WCEH]I = BIT12 
WCELO = BIT11 
DBL = BIT10 
IE = BITO6 
IPCK3 = BITO3 
IPCK2 = BITO2 
IPCK1 = BITO1 
IPCKO = BITOO 
SBTTL 
RMCS1 = 90 
RMWC = 02 
RMBA = 04 
RMCS2 == 10 
RMDB = 22 
RMBAE = 50 
RMCS3 = $2 
ABASE = 176700 
AVECT1 . = 120254 


Je 
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sADDRESS EXTENSION 
sADDRESS EXTENSION 
sREADY-READ ONLY 
: INTERRUPT ENABLE 


RH CONTROL STATUS REGISTER #2 


;DATA _LATE=READ ONLY 
sWRITE CHECK ERROR=READ ONLY 
:UNIBUS PARITY ERROR 
; NONEX1 STANT DRIVE-READ ONLY 


7MASSBIIS DATA BUS PARITY ERROR=READ ONLY 
;OUTPUT READY=-READ ONLY 

; INPUT READY=-READ ONLY 

; CONTROLLER CLEAR 

;PARITY TEST 

;UNIBUS ADDRESS INCREMENT INHIBIT 

sUNIT SELECT 

sUNIT SELECT 

sUNIT SELECT 


sUNIT SELECT MASK 


RH70 CONTROL STATUS REGISTER #3 


:ADDRESS PARITY ERROR 

;DATA PARITY ERROR HIGH WORD 
sDATA PARITY ERROR LOW WORD 
sWRITE CHECK ERROR HIGH WORD 
sWRITE CHECK ERROR LOW WORD 
;DOUBLE WORD TRANSFER 

: INTERRUPT ENABLE 

; INVERT PARITY CHECK 

: INVERT PARITY CHECK 

: INVERT PARITY CHECK 

; INVERT PARITY CHECK 


RH CONTROLLER REGISTER INDEX VALUES 


;CONTROL, STATUS REGISTER #1 
:WORD COUNT REGISTER 


C 
:BUS ADDRESS REGISTER 
;CONTROL, STATUS REGISTER &2 
:DATA BUFFER 
:BUS ADDRESS EXTENSION 
;CONTROL, STATUS REGISTER #3 


;UNIBUS ADDRESS 
;UNIBUS VECTOR ADDRESS AND PRIORITY 


oe a ee ee ae ee ee 


SEQ 0022 


TRAP CATCHER 


« 


CoO ~NOS 


000046 
000052 


000024 
000044 


SSsssss 
ee ed eed eed ae Se 
ed eed ee eed ed 
NORRVSS 


000000 


000174 
000000 
000000 


0001-37 


000137 


000210 


000210 
001100 


001100 


000000 
001222 
000006 
000006 
000006 
000042 
001114 


| CZRMNBO RMOS/3/2 FCTINL TST 2 


005432 
005422 


- SBTTL 


K 2 
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TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT’’ 
> *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
i *LOCATION NO CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: 


SWREG: 
- SBTTL 


~ SBITL 


= WORD C ;sSOFTWARE DISPLAY REGISTER 
«WORD 0 :sSOFTWARE SWITCH REGISTER 
STARTING ADDRESS ‘cS) 
JMP @ASTART :sJUMP TO STARTING ADDRESS OF PROGRAM 
JMP @ASTART 1 ; CHANGE RH/RM BUS ADDRESS 
ACT11 HOOKS 


CREAR RAKE EAE EEE KEE REAR EAAEERAREERAEEAKEHREKKERKEEEEEEREEKEEE 


HOOKS gt pg BY ACT11 


-=1100 
- SBTTL 


SVP : SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
“WORD 0 ;2)SET LOC. 352 TO ZERO 

-=$SVPC =: RESTORE F 


APT PARAMETER BLOCK 


FERRARA EERE KEEEREEEEERERERKEKE KEKE 


:Se7 LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


J EERE EAEKEERAEKREAEEKKEEERAEAERREKKEEREKREKREKEEEKEEKEKKEE TREE 


. SX=,. 3; SAVE CURRENT LOCATION 

-=24 3;2:SET POWER FAIL TO POINT TO START OF PROGRAM 
200 :zFOR APT START UP 

~=44 :;POINT TO APT rept in age ADDRESS PNITR. 

SAPTHDR ;;POINT TO APT HEADER BLOCK 


-=.$X  ;;RESET LOCATION COUNTER 


2 IORI RTT TOE RR ESE RTE ARERR EER ER EER ee 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


$APTHD: 
$HIBTS: 
SMBADR: 
STSTM: 

$PASTM: 
SUNITM: 


TAGADR=. 


-WORD 0Q :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

«WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

-WORD 6 ;;RUN TIM OF LONGEST TEST 

-WORD 6 ; + RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

- WOR ITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


> 6-6 ADD 
.WORD  $ETEND-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


LL A A A 


SEQ 0024 


ee 


a. > feahatte FCTNL TST 2 


_ COMMON T 


0 


essssessssssseseses 
— ee ee ee ee eed eed eed ed eed 
ee ek ed ed eB ed ed ed ed ot J wd 
ee oe a a ae 
ALM -OKKSNIONOLS 


WI UI is & a 
MH OAOLNO 


oO 
oo 
— 2 
~~ 


001156 
001160 


001220 


001222 


001114 


377 


000 





‘ Ce 
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377 


.SBTTL COMMON TAGS 


LEAR AAE ERATE eee 


THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


$SCMTAG: 


SAUTOB: . 


. =TAGADR 


elelele)l ele) eo) eo) oe) er 1212) ea) ee) e)lela) 


UU” 
“oe 
an 
v 


Sr ee 


<207><377><377> ; a 


Ci5> 
<12> 


:zSTART OF COMMON TAGS 


;s CONTAINS THE ay NUMBE R 

;s CONTAINS ERROR FLAG 

; CONTAINS SUBTEST” ITERATION COUNT 
; SCOPE LOOP ADDRESS 
ONTAINS SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
ONTAINS MAX. ERRORS PER TEST 

;s CONTAINS PC OF LAST ERROR ee 
;s CONTAINS ADDRESS OF ‘GOOD’ 

; ; CONTAINS "GOOD" DATA "BAD* DATA. 


ONTAINS * DATA 
: ERESERVED--NOT TO BE USED 


: sAUTOMATIC MODE INDICATOR 
:; INTERRUPT MODE INDICATOR 


: ADDRESS OF SWITCH REGISTER 
: ADDRESS GF DISPLAY REGISTER 
siTTy KBD STATUS 


KBD BUF 
::TTY PRINTER STATUS REG. ADDRESS 
;;TTY PRINTER BUFFER REG. ADDRESS 
;s CONTAINS NULL CHARACTER FOR FILLS 
:eCONTAINS # OF FILLER CHARACTERS REQUIRED 
>: INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
;;. TERMINAL AVAILABLE’* FLAG (BIT<07>=0=YES) 


NUMBER OF ITERATIONS 
ESCAPE ON ADDRESS 


E 
: CARRIAGE RETURN 
:sLINE FEED 


FREAK KERKEEEEEREKKEKKERERERERERREREEEKEKEEKERREKEREREKA EE EEE 


* SBTTL APT MA!ILBOX~-E TABLE 


CC EAE EEAREEEAEEREREREKRER ER EE 


Y: .WORD 
SFATAL: 
$TESIN: 


. WORD 
. WORD 





;;APT MAILBO 
;sMESSAGE TYPE CODE 


AMSGTY 
AFATAL 
ATESTN 


7 FATAL 


X 
ERROR NUMBER 


>: TEST NUMBER 


SEQ 0024 


eee ee ee 
,. 





> 


Me 
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| APT MAILBOX=ETABLE SEQ 002% 
001230 000000 SPASS: .WORD APASS -  =;;PASS COUNT 
001232 000000 S$DEVCT: .WORD ADEVC’T ;;DEVICE COUNT 
001234 000000 SUNIT: .WORD AUNIT 3:1/C UNIT NUMBER 
001236 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
001240 000000 SMSGLG: .WORD AMSGLG hy LENGTH 
001242 SETABLE: 73AP | ENVIRONMENT TABLE 
001242 000 SENV: -BYTE AENV 7 ENVIRONMENT BYTE 
001243 000 SENVM: .BYTE AENVM~ ;; ENVIRONMENT MODE BITS 
001244 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001246 000000 SUSWR: .WORD AUSWR  ;;USER SWITCHES 
001250 000000 $CPUOP: .WORD ACPUOP gins 15-112 ce Pa 

** 


YPE 
1/04=01,11/05=02,11/20=93, 11/40= 04,11/45=05 


:* 11770206. PDQ=07,0=10 
s* BIT 10=REAL TIME CLOCK 
i* BIT 9=FLOATING POINT SOLE SSOR 
.* BIT 8=MEMORY MANAGEMENT 
001252 000 SMAMS1: .BYTE AMAMS 1 : HIGH ADDRESS,M.S. BYTE 
001253 000 $MTYP1: .BYTE AMTYP1 *MEM, TYPE BLKA1 
* MEM. TYPE BYTE “~~ (HIGH BYTE) 
3* 900 NSEC CORE=001 ' 
i* 300 NSEC BIPOLAR=002 
;* 500 NSEC MOS=003 
001254 000000 $MADR1: .WORD AMADR1_ ;;HIGH ADDRESS,BLKA1 
“tes MEM.LAST ADDR. =3 BYTES. THIS WORD AND LOW OF ‘'TYPE’’ ABOVE 
001256 000 $MAMS2: .BYTE AMAMS2- ;;HIGH ADDRESS,M.S. BYTE 
001257 000 SMTYP2: .BYTE AMTYP2 ;;:MEM.TYPE,BLK&2 
001260 000000 SMADR2: .WORD AMADR2 + 3MEM. LAST ADDRESS ,BLKA&2 
001262 000 SMAMS3: .BYTE AMAMS3 ::H HIGH ADDRESS.M.S.BYTE 
001263 000 $MTYP3: .BYTE  AMTYP3 : 7MEM. TYPE ,BLKA3 
001264 000000 SMADR3: .WORD AMADR3 7MEM.LAST ADDRESS,BLK&3 
001266 000 SMAMS4: .BYTE AMAMS4 > :HIGH ADDRESS,M.S.BYTE 
001267 000 ' SMTYP4: .BYTE AMTYP4 ;:MEM.TYPE JBLKAG 
001270 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS,BLK&4 
001272 120254 S$VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR41,BUS PRIORITYA1 
001274 000000 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITYA42 
001276 176700 $BASE: .WORD ABASE 3:;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001300 000000 S$DEVM: .WORD ADEVM 7;DEVICE MAP 
001302 $CDW1 -WORD ACDW1 :; CONTROLLER DESCRIPTION WORDA1 


000000 : 
001304 os ata $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORDA#2 


001306 0000 $DDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORDAO 
001310 $DDWi: .WORD ADDWi ;;DEVICE DESCRIPTOR WORDA1 
001312 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORD#2 
0013514 00000 $DDW35: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORDA3 
001316 000000 $DDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORDA4 
001320 000000 $SDDW5: .WORD ADDWS ;;DEVICE DESCRIPTOR WORDAS 
001322 000000 $DDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORDA6 
i 000000 rend -WORD ADDW7 ;;DEVICE DESCRIPTOR WORD#7 


EL EE Et EC ne eee 


_ CZRMNBO RMOS5S/3/2 FCTNL TST 2 


| 
| 
| 
| 


USER DEFINED TAGS 


001334 
001335 


001336 


001336 
001340 


+ et et et et ee ee 
SWS the? et Pe 
ENIOASMNOO SM 


S88888sSS8S 


000000 
000000 
000000 


000 
000 


000000 


000000 
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MACRO VO04.00 4-APR-81 11:45:55 PAGE 7 
SEQ 0026 


-SBTTL USER DEFINED TAGS 


CTLFG: .WORD Q :CONTAINS CONTROL-C FLAG 

CHGADR: .WORD 0 ; CHANGE RH/RM BUS ADDRESS = -1, NO CHANGE = 0 

XXDP: -WORD 0 >THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
; THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
3: *XXDP* DEVICE CODE FOR THE RMOS/3/2. 

LSTRK: ge ;LO BYTE = 


:HI] BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
SUNDER TEST. RMO2/3 = 4., RMOS = 18. 


;THE REGISTER INPUT BUFFER IS USED FOR 


;STORING DRIVE STATUS 


GE TBUF : 

sREGISTER INPUT BUFFER 

RMCS1I: .WORD Q ;CONTROL, STATUS REGISTER 41 
RMWCI: ; .WORD OQ :WORD COUNT REGISTER 

RMBAI: .WORD 0 ;BUS ADDRESS REGISTER 

RMDAI: .WORD Q :DISK ADDRESS REGISTER 

RMCS2I: .WORD 0 ;CONTROL, STATUS REGISTER #2 
MDSI: .WORD 0 :DRIVE STATUS REGISTER 
RMER1I: .WORD Q sERROR REGISTER 41 

RMASI: .WORD QO : ATTENTION SUMMARY REGISTER 
RMLAI: .WORD QO sLOOK AHEAD REGISTER 

RMDBI: .WORD 0 :DATA BUFFER 

RMMRII: .WORD 0 ;MAINTENANCE REGISTER #1 
RMDTI: .WORD QO :DRIVE TYPE REGISTER 

RMSNI: .WORD 0 ;SERIAL NUMBER REGISTER 
RMOFI: .WORD QO [OFFSET REGISTER 

RMDCI: .WORD QO sDESIRED CYLINDER REGISTER 
RMHRI: .WORD OQ :HOLDING REGISTER 

RMMR2I: .WORD 0 :MAINTENANCE REGISTER #2 
RMER2I: .WORD 0 ;ERROR REGISTER #2 

RMEC1I: .WORD 0 ;ECC POSITION REGISTER 
RMEC2I1: .WORD 0 :ECC PATTERN REGISTER 
RMBAEI: .WORD 0 >BUS ADDRESS EXTENSION REGISTER 
RMCS3I: .WORD 0 ;CONTROL, STATUS REGISTER 4&3 


:THE REGISTER OUTPUT BUFFER IS USED FOR 
sASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 
sREGISTER OUTPUT BUFFER 

RMCS10: .WORD 0O sCONTROL, STATUS REGISTER #1 
RMWCO: .WORD 0 WORD COUNT REGISTER 
RMBAO: WORD 0 :BUS ADDRESS REGISTER 
RMDAO: .WORD 0 :DISK ADDRESS REGISTER 
RMCS20: .WORD 0 = CONTROL, STATUS REGISTER #2 
RMDSO: .WORD 0 :DRIVE STATUS REGISTER 
RMER10: .WORD 0 :ERROR xEGISTER #1 
RMASO: .WORD 0 ; ATTENTION SUMMARY REGISTER 
RMLAO: .WORD 0 >LOOK AHEAD REGISTER 
RMDBO: .WORD OQ “DATA BUFFER ‘ 
RMMR10: .WORD 0 =MAINTENANCE REGISTER #1 


B 3 
CZRMNBO RMOS/3/2 FCINL TST 2 MACRO VO4.00 4-APR-81 11:43:33 PAGE 7-1 


USER DEFINED TAGS SEQ 0027 
001440 000000 RMDTO: .WORD QO : DRIVE TYPE REGISTER 
001442 000000 RMSNO: .WORD 0 SERIAL NUMBER REGISTER 
001444 000000 RMOFO: .WORD 0 ‘OFFSET REGISTER 
001446 000000 RMDCO: .WORD 0 sDESIRED CYLINDER REGISTER 
901450 000000 : .WORD QO sHOLDING REGISTER 
001452 000000 RMMR20: .WORD 0 :MAINTENANCE REGISTER #2 
001454 000000 RMER2O: .WORD 0 sERROR REGISTER #2 
001456 000000 RMEC10: .WORD 0 sECC POSITION REGISTER 
001460 000000 RMEC20: .WORD 0 :ECC PATTERN REGISTER 
001462 000000 O: .WORD 0 ;BUS ADDRESS EXTENSION REGISTER 
001464 000000 RMCS30: .WORD 0 :CONTROL, STATUS REGISTER #3 


sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
;THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
sFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
: IN THE TABLE. iy ZERO WORD IS A BLANK AND REPRESENTS THE 


sEND OF THE Q 
001466 000000 TSTQUE: .WORD 0 ;CONTAINS DEVICE POINTER 
601470 -BLKW 8. : TEST QUE FOR DEVICES UNDER TEST 
001510 000000 -WORD QO ; TABLE TERMINATOR GOES HERE WHEN 


sALL 8. DEVICES ARE UNDER TEST. 


sMEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
:FOR THE UNIT UNDER TEST, OTHERWISE IT IS ZERO. 
001512 000000 MEDENB: .WORD 0 :MEDIA ENABLE 


sLOCATIONS *‘ASNDC'’ AND ‘'ASNDC'’ CONTAIN THE CYLINDER, TRACK AND SECTOR 
sADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 


001514 000000 ASNDC: .WORD 0 sASSIGNED DESIRED By a 
001516 000000 ASNDA: .WORD 0 sASSIGNED TRACK, AND SECTOR 
001520 000000 CLKADR: .WORD 0 ;UNIBUS ADDRESS OF KW11 CLOCK 
001522 000000 CLKVCT: .WORD 0 :VECTOR ADDRESS OF KW11 CLOCK 


:THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
sARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
zsA NEGATIVE BYTE. 

001524 GETINX: .BLKB 23. :GET INDEX TABLE 


;THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 

sARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED By 

sA_NEGATIVE BYTE. , | 
001553 PUTINX: .BLKB 23. sPUT INDEX TABLE 


z:PUT TAGS HERE 


EE Se SD Ce ee | ee ee eee <a 


CZRMNBO 8M05/3/2 FCINL TST 2 


FRROR POINTER TABLE 


auws Wh - 


oon 


001602 
C01604 
001606 
001610 


065324 
071410 
071534 
071624 


065330 
071410 
071534 
071624 


065336 


071624 


CJ 
MACRO VO4.00 4-APR-81 11:43:33 PAGE 8 


-SBTTL ERROR POINTER TABLE 


>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
oa. SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE Se PERTINENT. 


> *NOTE2: 


*» 2 2 * 


SERRTB: 


: ERROR 


: ERROR 


: ERROR 


7 ERROR 


: ERROR 


: ERROR 





IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRP 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:zPOINTS TO THE ERROR MESSAGE 
::POINTS TO THE DATA HEADER 
;:POINTS TO THE DATA 

7zPOINTS TO THE DATA FORMAT 


WRONG UNIT SELECTED 


DEVICE WENT UNAVAILABLE 


DEVICE WENT NONEXISTENT 


CONTROLLER NOT READY 


DRIVE NOT READY AND GO NOT RESET 


UNEXPECTED VALUE FOR ‘'ATA’’ STATUS 


SEQ 0028 


CZ7RMNBO RMO5/3/2 FCINL TST 2 


FRROR POINTER TABLE 


18 


) 


2 
22 
23 
24 


25 
26 
7 


Oe EE Gk nee ee eee 


071624 


065404 
071410 
071534 
071624 


071624 


; ERROR 


: ERROR 


: ERROR 


s ERROR 


s ERROR 


Zz ERROR 


7 ERROR 


D 3 
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SEQ 0029 


BUS TIMEQUT TRYING TO READ OR WRITE REGISTER 


DRIVE NOT READY BUT GO IS RESET 


GO NOT RESET BUT DRIVE IS READY 


INCORRECT FUNCTION CODE 


PARITY ERROR READING REMOTE REGISTERS 


TRANSFER ERROR IS INCORRECT 


INCORRECT WORD COUNT 


ieeeien te 


de 
53 
54 


CZRMNBO RMO5/3/2 FCTINL TST 2 
FRROR POINTER TABLE 


071624 


065440 
071410 
071534 
071624 


071624 


065470 
071410 
071534 
071624 


065520 


s ERROR 


: ERROR 


;ERROR 


: ERROR 


; ERROR 


; ERROR 


s ERROR 


—E 3 
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INCORRECT BUS ADDRESS 


INCORRECT LAT STATUS 


INCORRECT AOE 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


INCORRECT WLE STATUS 


INCORRECT UPE STATUS 


SEQ 0030 


; 


CZRMNBO RMOS/3/2 FCTINL TST 2 


FRROR POINTER TABLE 


002034 
002036 
002040 


ee A Le 


071624 


065550 
071624 
065560 
071410 


071534 
071624 


065570 


; ERROR 


: ERROR 


; ERROR 


> ERROR 


: ERROR 


sERROR 


7 ERROR 


EE A 


MACRO V04.00 4-APR-81 


INCORRECT WCF STATUS 


INCORRECT WCE STATUS 


INCORRECT MDPE STATUS 


INCORRECT DCK STATUS 


INCORRECT ECH STATUS 


DLT SHOULD NOT BE SET 


MXF SHOULD NOT BE SET 


ee me so 


.. 
11:43:33 PAGE 8-3 


> a 
CZRMNBO RMOS/3/2 FCINL TST 2 MACRO vVO06.00 4=-APR=81 11:43:53 PAGE 8-4 
FRROR POINTER TABLE 


002126 071534 EDT? 
002130 071624 FFI1 
82 
: sERROR 34 DTE SHOULD NOT SE SET 
002132 065620 EMT 34 | 
002134 071410 EHT] 
002136 071534 EDT1 
002140 071624 FFT? 
85 
86 :FRROR 35 INCORRECT HCRC STATUS 
/ 
002142 065630 EMT 35 
002144 971410 FHT 
002146 071534 EDT1 
002150 071624 EFT] 
88 
e zERROR 36 INCORRECT HCE STATUS 
002152 065640 EMT 36 
002154 071410 EHT1 
002156 071534 EDT] 
071624 FFT 
91 
a6 sERROR 37 INCORRECT FER STATUS 
002162 065650 EMT 37 
002164 071410 EHT1 
002166 071534 EDT1 
002170 071624 FFT1 
94 
95 sERROR 40 DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 
002172 (065660 EMT40 
002174 071410 EHT1 
002176 071534 EDT1 
002200 071624 EFT 
97 
28 sERROR 41 LOST ‘MOL'’ DURING PACK ACKNOWLEDGE 
002202 065666 EMT41 
002204 071410 FHT 
002206 071534 EDT 
002210 071624 EFT} 
100 
4 sERROR 42 UNSAFE ERROR DURING PACK ACKNOWLEDGE 
002212 065676 EMT42 


002214 071410 FHT? 
002216 071534 EDT 


A TT 
a 


Se eee 


-2RMNBO RMO5S/3/2 FCTN 
FRROR POINTER TABLE 


002220 


002260 


002262 


002270 


002272 


002302 
0023504 


002306 
002310 


ee ee oe —— en 


071624 


071624 


065720 
071410 
071534 
071624 


065730 


071624 


065740 


071624 


065750 


071624 


065756 


071624 


: ERROR 


: ERROR 


: ERROR 


> ERROR 


s ERROR 


7 ERROR 


; ERROR 


EFT 
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“OPT"’ ERROR DURING PACK ACKNOWLEDGE 
“'RMR"" ERROR DURING PACK ACKNOWLEDGE 
“"ILR'’ ERROR DURING PACK ACKNOWLEDGE 
“"ILF’* ERROR DURING PACK ACKNOWLEDGE 
COMPOSITE ERROR STATUS IS INCORRECT 
PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT IAE STATUS DURING SEEK COMMAND 


ET EE REE oe SOE etme Eel 


SEQ 0037 


SS Se seems 
le ae 


CO IE — ee 


CZ7RMNBO R2M95/43/2 FCINL TST 2 


FRROR POINTER ‘ABLE 


002372 
002374 
002376 


071624 


066016 
071410 
071534 
071624 


066034 
071410 
071534 
071624 


066044 
071410 
071534 
071624 


: ERROR 


> ERROR 


> ERROR 


; ERROR 


> ERROR 


 » 
MACRO V¥04.00 4-APR=-81 11:43:33 PAGE 8-t 


SEQ O 


OPI ERROR DURING SEEK = MEDIUM IS NO? ON LINE 


OP] ERROR DURING SEEK = MEDIUM IS ON LINE, ASSUME 
ON CYLINDER LATCH DIDN'T RESET 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


DEVICE CHECK DURING SEEK COMMAND 


PjP IS STILL SET AFTER SEEK = SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


].. ERROR DURING SEEK COMMAND = LOST 
VOLUME VALID 


_ CZRMNBO RMO5/3/2 FCINL TST 2 


ee Ee 
Se eee ee ee o~ - 


re Oke tia, ee eee tne y 


ERROR POINTER TABLE 


002400 


002402 
002404 


002406 
002410 


002422 
002424 
002426 
002430 


002432 
002434 
002436 
002440 


002442 


071624 


066122 
071410 
071534 
071624 


071624 


000000 
000000 
000000 
000000 





zs ERROR 


: ERROR 


: ERROR 


; ERROR 


: ERROR 


; ERROR 


Zs ERROR 


EFT) 


61 
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ERRONEOUS IVC ERROR oi ae SEEK COMMAND - 
VOLUME VALID IS STIL SET 


MOL IS ZERO, BUT OPI WAS NOT 
REPORTED DURING SEEK COMMAND 


UNUSED 


DRIVE DID NOT DETECT ‘‘IVC** ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMERI 


UNEXPECTED ERROR SET IN RMER2 


LL CTO tte te te i et 


SEQ 0035 


. 2 
CZ7RMNBO RMO5S/3/2 FCTINL TST 2 MACRO V04.00 4=-APR-81 11:43:33 PAGE 8-8 


_ ERROR POINTER TABLE SEQ 0034 
002466 077534 EDT1 
002470 071624 EFT? 
170 
17] :ERROR 70 ERRONEOUS ‘‘IAE‘’ ERROR DURING RECAL JBRATE 
002472 066244 FMT70 
002474 071410 EHT1 
002476 071534 EDT1 
002 071624 EFT] 
173 
ne sERROR 71 “"ILF’' ERROR DURING RECALIBRATE 
002502 066254 EMT71 
002504 071410 EHT1 
002506 071534 EDT1 
002510 071624 EFT1 
176 
} a zERROR 72 "OPI'' ERROR DURING RECALIBRATE DUE TO ‘MOL'’ = 0 
002512 066264 EMT72 
002514 071410 EHT1 
002516 071534 EDT1 
002520 071624 EFT1 
179 
180 sERROR 73 “‘OPI*' ERROR DURING RECALIBRATE BECAUSE ON 
yd : CYLINDER DIDNT DROP 
002522 066302 EMT73 
002524 071410 EHT1 
002526 071534 EDT1 
002530 071624 EFT? 
183 
Ho: sERROR 74 “"IVC'' ERROR DURING RECALIBRATE - ‘Vv'' = 0 
002532 066320 EMT74 
002534 071410 EHT1 
002536 071534 EDT1 
002540 071624 EFT1 
186 
i 14 sERROR 75 ERRONEOUS ‘‘IVC'' ERROR DURING RECALIBRATE - ‘Vv'' = 1 
002542 °066 | EMT75 
002544 071410 EHT1 
002546 071534 EDT1 
002550 071624 EFT1 
189 
139 :ERROR 76 “Sk I'' ERROR DURING RECALIBRATE 
002552 066350 EMT76 
002554 071410 enti. . 


ee 





LS a ee ee ic seer serena te <<< - —--- 


CZRMNBO RMO5/3/2 FCTINL TST 2 


| ERROR POINTER TABLE 


002556 
002560 


192 
193 
194 


002602 
002604 


002606 
002610 


002612 
14 


071534 
071624 


071624 


066372 
071410 
071534 
071624 


071624 


066426 


071624 


1 


wis & 
© 


¥SS 


066 
07 
0 


™N 
— <3 





— oo 
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; ERROR 


sERROR 


s ERROR 


: ERROR 


; ERROR 


sERROR 


s ERROR 


100 


101 


102 


104 


105 
EMT105 
EHT1 
EDT1 


“DVC* OCCURRED DURING RECAL IBRATE 


LOST ‘MOL** DURING RECALIBRATE = ‘OPI'' = 9 


LOST ‘'VV"" DURING RECALIBRATE = ‘‘IvC’’ = 0 


‘ATA’ DID NOT SET DURING RECALIBRATE 


“'OM'' DID NOT RESET DURING RECALIBRATE 


_ PIP’ IS STIL SET AFTER RECALIBRATE 


> 


UNEXPECTED “‘ILR'’ ERROR DURING RECALIBRATE 


SEQ 003° 


— C7RMNBO RMOS/3/2 FCTNL TST 2 
FRROR POINTER TABLE 


002650 071624 


071624 


066506 
071410 
071534 
071624 


071644 


066554 
000000 
000000 
000000 


: ERROR 


s ERROR 


: ERROR 


: ERROR 


; ERROR 


s ERROR 


; ERROR 


MACRO VO4.00 4-APR-8i 


EFT) 


113 


M 3 
11:43:53 PAGE 8-10 


UNEXPECTED “'RMR"' ERROR DURING RECALIBRATE 


“UNS'" ERROR DURING RECALIBRATE = AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIAUS 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEOUT-NED STATUS FAILURE 


DEVICE NOT AN RMO0S/3/2 


SEQ 0035 


' CZRMNBO RMOS/3/2 FCTINL TST 2 


| ERROR POINTER TABLE 


071624 


066616 


071624 


066626 


071624 


: ERROR 


: ERROR 


; ERROR 


; ERROR 


> ERROR 


7 ERROR 


; ERROR 


116 


121 


N 3 
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RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


RMMR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


LE A i A pn gn a 


SEQ 0039 


27 


ae a 


CZRMNBO RMOS/3/2 FCTNL TST 2 
| ERROR POINTER TABLE 


255 


a) 


COON 


071624 


066756 
071410 
077534 
071624 


z ERROR 


; ERROR 


: ERROR 


: ERROR 


7 ERROR 


; ERROR 


; ERROR 


124 
EMT124 


127 


EMT127 
ERT] 


131 
wih 31 
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RMEC2 NOT INITIALIZED BY UNIBUS 


RMAR2 NOT INITIALIZED BY UNIBUS 


RMCS? NOT CLEARED BY CONTROLLER CLEAR 


RMBA NOT CLEARED BY CONTROLLER CLEAR 


RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


RMER1T NOT CLEARED BY CONTROLLER CLEAR 


RMAS NOT CLEARED BY CONTROLLER CLEAR 


eee me. ee ee ce eee 


SEQ 0040 


| CZRMNBO 2M05/3/2 FCTINL TST 2 
ERROR POINTER TABLE 


LLL LL LL LL LLL CL A CL cet, 
c 





003156 


071624 


067014 


071624 


067040 


: ERROR 


: ERROR 


: ERROR © 


: ERROR 


; ERROR 


;ERROR 


zs ERROR 


zERROR 


134 


140 


141 
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RMMR1 NOT CLEARED BY CONTROLLER CLEAR 


RMDS NOT CLEARED BY CONTROLLER CLEAR 


RMEC2 NOT CLEARED BY CONTROLLER CLEAR 


RMMR2 NOT CLEARED BY CONTROLLER CLEAR 


RMCS1 NOT CLEARED BY ERROR CLEAR 


RMCS2 NOT CLEARED BY ERROR CLEAR 


RMCS1 NOT CLEARED BY DRIVE CLEAR 


RMDS NOT CLEARED BY DRIVE CLEAR 


SEQ 0041 


niin 


CZRMNBO RMOS/3/c FCINL TST 2 MACRO V04.00 4-APR-81 


ERROR POINTER TABLE 


299 


318 
319 
320 


: ERROR 


: ERROR 


; ERROR 


sERROR 


: ERROR 


; ERROR 


sERROR 


EMT142 


144 


146 


147 


D 4 
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RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR 


MEDIUM NOT ON LINE 


. 
OS A ES ES es A a see + Gene nee 


SEQ 00 


071624 


067172 


071624 


06724C 


071624 


067252 


671624 


067276 


s ERROR 


: ERROR 


; ERROR 


:*©RROR 


: ERROR 


: ERROR 


7 ERROR 


152 


EMT152 
EHT1 


156 


157 


EM7 160 


a ee 


DRIVE FAULT - 


UNSAFE SHOULD BE SET BECAUSE DvVC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET By PACK ACK 


OFFSET MODE NOT SET SY OFFSET COMMAND 


OFFSET MODE NOT RESET 8Y RTC COMMAND 


RMOF Nut RESET BY RIP COMMAND 


LO TE Lt ttt A et sei tat tt ti tt 


grant EE EE eee ae 
LL A Lc Ste eerie 
SS sete ste estet sttetesisieamecntine- steams 


003374 
003376 
0034090 


-2RMNBO RMOS/3/2 + hao TST 2 
ERROR POINTER TAB 


071470 
071534 
071624 


071624 


071204 
071472 
071570 


071624 


067350 


071624 


067364 


F 4 
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: ERROR 


ERROR 


; ERROR 


: ERROR 


> ERROR 


: ERROR 


: ERROR 


164 


166 


167 


RMDA NOT RESET BY RIP COMMAND 


RMDC NOT RESET BY RIP COMMAND 


DATA WAS + CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 


OPT SHOULD NOT BE SET 


T¥C SHOULD NOT BE SET 


IAE SHOULD NOT BE SET 


NEM SHOULD NOT BE SET 


SEQ 0044 


G 4 
CZRMNBO RMOS/3/2 FCINL TST 2 MACRO V04.00 4-APR-81 11:45:53 PAGE 8-17 


FRROK POINTER TABLE SFO 0 
003464 071410 EHT1 
003466 071534 EDT1 
003479 071624 EFT 
364 
365 -ERROR 170 INCORRECT ‘MOL'’ STATUS DURING DIAGNOSTIC MODE 
003472 067372 EMT170 | 
003474 071410 EHT1 
003476 071534 EDT1 
003500 671624 EFT 
%67 
368 :ERROR 171 “"ATA'' NOT SET DURING RETURN TO CENTERLINE 
003502 067404 EMT171 
003504 071410 FHT] 
003506 071534 EDT1 
003510 071626 — EFT I 
370 
25> :ERROR 172 "“ATA’' NOT SET BY OFFSET COMMAND 
003512 067414 EMT172 
003514 071410 EHT1 
003516 071534 EDT} 
003520 071624 EFT 
373 
374 sERROR 173 RMER2 NOT INITIALIZED BY UNIBUS INIT 
003522 067424 EMT173 
003526 071410 FHT 1 
003526 071534 EDT1 
003530 071624 EFT 
376 
377 :ERROR 174 RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 
3532 067434 EMT174 
534 071410 EHT1 
071534 EDT] 
003540 071624 EFT 
379 
339 ERROR 175 SELECTED DEVICE IS IN WRITE PROTECT 
003542 067446 EMT175 
003544 071410 FHT 1 
003546 071534 EDT] 
003550 071624 EFT 
382 
385 ; sERROR 176 CANNOT SET DIAGNOSTIC fODE 
003552 067454 FMT1/6 


003554 077410 EXT) 


CZRMNBO RMO5/3/2 FCINL TST 2 
FRROR POINTER TABLE 


003556 077534 
003560 077624 


385 


003562 
003564 


003566 
003570 


003632 
003634 
003636 
003640 


071624 


067510 


071624 


067522 


sERROR 


zs ERROR 


: ERROR 


s ERROR 


; ERROR 


s ERROR 


: ERROR 


201 


203 


204 


205 
EMT 205 
EHT] 
EDT] 


7 H & 
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“RESERVED FOR POWER MONITOR BIT FAILURE==- 


INCORRECT ‘PIP** STATUS DURING DIAGNOSTIC MODE 


INCORRECT "WRL*' STATUS DURING DIAGNOSTIC MODE 


INCORRECT *'SKI*’ STATUS DURING DIAGNOSTIC MODE 


INCORRECT *DVC'' STATUS DURING DIAGNOSTIC MODE 


“VV"" WAS NOT RESET BY MAINTENANCE UNIT READY 


SELECTED DEVICE HAS A PERSISTENT ‘’SKI'' ERROR 


Se ce ey EE EEE ONE ee EER ma roe 


- 
ceneeeeateneeesnet 
_— = == 


C2RMNBO RMO5S/3/2 FCINL TST 2 
FRROR POINTER TABLE 


003650 071624 


406 
407 


498 
003652 067562 
003654 071410 
003656 071534 
003660 071624 


3666 
003670 071624 


003672 067604 


003700 071624 


003702 067612 


003710 071624 


003712 067626 


003730 071624 


003732 067652 
003734 071422 
003736 071544 
003740 071634 


: ERROR 


> ERROR 


7 ERROR 


: ERROR 


s ERROR 


> ERROR 


zs ERROR 
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EFT 


206 


EMT 206 
ET) 


207 
EMT 207 
EHT1 
EDT1 
EFT 
210 
EMT210 
EHT1 
EDT! 
EFT1 
211 
EMT 211 


212 
EMT212 
EHT] 
EDT 
EFT 
213 


EMT 213 


I 4 
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“LBC’’ DID NOT SET DURING DIAGNOSTIC MODE 


UNEXPECTED LOSS OF ‘MOL*’ = MEDIUM IS OFF LINE 


UNEXPECTED LOSS OF VOLUME VALID = ‘Vvy'’ = 0 


UNEXPECTED MECHANICAL MOTION - ‘PIP’ = 1 


UNEXPECTED DEVICE FAULT - ‘DVC'’ = 1 


UNEXPECTED SEEK INCOMPLETE ERROR - ‘’SK]** = 1 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


CZRMNBO RMO5/5/2 FCINL TST 2 


FRROR POINTER TABLE 


071634 


067704 
071410 
071534 
071624 


067714 
071410 
071534 
071624 


067724 
071410 
071534 
071624 


071624 


067744 
071410 
071534 
071624 


7 ERROR 


s ERROR 


; ERROR 


> ERROR 


: ERROR 


: ERROR 


zs ERROR 
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216 


EMT216 
EHT1] 


220 


EMT 220 
EHT1 
EDT1 
EFT 


221 
EMT 221 
EHT1 
EDT 
EFT? 
e22 


EMT 222 
EHT1 


223 


J 4&4 
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DRIVE DID NOT DETECT “‘IVC** ERROR DURING RECAL IBRATE 


INCORRECT “‘IVC'' STATUS 


INCORRECT ‘‘IAE'’ STATUS 


INCORRECT “WLE'* STATUS 


INCORRECT *‘OPI*’ STATUS 


RM DID NOT DETECT RMR ERROR 


RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 


| C7RMNBO RMO5/3/2 FCTINL TST 2 


ERROR POINTER TABLE 


Se 


-—— 


000000 


000000 
000000 


000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 





zs ERROR 


: ERROR 


7 ERROR 


; ERROR 


: ERROR 


s ERROR 


= ERROR 


224 


ae] ap] ap] a) 


UNUSED ~° 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


K 4 
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— ILL TS i A Sw 


— CZRMNBO RMO5/3/2 FCINL TST 2 


es — LL Se 


ERROR POINTER TABLE 


470 
471 


004170 


004172 





000000 
000000 
000000 
000000 


000000 


000000 
000000 
0000 


: ERROR 


: ERROR 


: ERROR 


: ERROR 


: ERROR 


s ERROR 


: ERROR 


sERROR 


233 


L 4 
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UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


SEQ 0050 


CZRMNBO RMOS/3/2 FCINL TST 2 


ERROR POINTER TABLE 


000000 
00%)00 


Cus? 20 
006000 


071624 


070040 


071624 


M 4 
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: ERROR 


;ERROR 


Zs ERROR 


s ERROR 


> ERROR 


; ERROR 


7 ERROR 


Oooo 


247 


| 
004272 070052 
004274 EHT1 
004276 
004 300 
511 
512 
513 
ccc nn nn Seesaw esis eet thateneunteeeenascastasiaennmentpinseenpenmsaninmunen ew 


UNUSED 


UNUSED 


UNUSED 


“"ATA’’ NOT RESET BY GO WHEN ‘'ERR’’ = 0 


ATA’ NOT RESET BY WRITING RMAS 


“"ATA'' WAS RESET BY GO WHEN ‘ERR’ = 1 


PROGRAM INTERRUPT WAS NOT GENERATED 


004302 
304 


- EERMNBO RMOS/3/2, FCTNL TST 2 
| ERROR POINTER TABLE 


071634 


070102 


071624 


070120 


071624 


070130 
071624 
070140 
071460 
071560 
071650 


070150 


071624 


070162 
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: ERROR 


-ERROR 


: ERROR 


: ERROR 


: ERROR 


; ERROR 


> ERROR 


253 


254 


255 


256 


EF T223 


257 
a ee 


260 
EMT 260 


N 4 
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PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 


OFFSET MODE WAS NOT RESET BY WRITING RMDC 


INCORRECT "*ILF** STATUS 


INCORRECT *‘ATA’' STATUS 


INCORRECT “‘ILR'* STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


“"IVC’' WAS NOT DETECTED DURING SEARCH COMMAND 


SEQ 0057 


340 


CZRMNBO RMOS/3/2 FCTNL TST 2 
ERROR POINTER TABLE 


071470 
071534 
071624 
070174 


071624 


070214 
071624 
070224 
071410 
071534 
071624 
070234 
071624 
070254 
071410 
071534 
071624 


070274 


071624 


070306 


: ERROR 


: ERROR 


; ERROR 


ERROR 


: ERROR 


; ERROR 
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EMT 261 
EHT1 


262 


EMT 262 
EHT1 


264 


265 


266 


267 


EMT 267 
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DRIVE EXECUTED SEARCH WITH ERROR SET 


“LBC’* ERROR NOT SET DURING DIAGNOSTIC MODE 


"SKI" ERROR DURING SEARCH COMMAND 


"“"TVC'" ERROR DURING SEARCH = LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH = VOLUME IS VALID 


DEVICE FAULT (DVC) DURING SEARCH 


SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 
ADDRESS IS TOO LARGE 


SO EE A TE a 


REESE thar 


CZRMNBO RMOS/3/2 FCINL TST 2 
ERROR POINTER TABLE 


071470 
071534 
071624 
070324 


0671624 


070340 
071410 
071534 
071624 


070356 


071624 


070374 


071624 


z ERROR 


: ERROR 


: ERROR 


: ERROR 


; ERROR 


; ERROR 


z= RROR 
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272 


c .§ 
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O? 1 ERROR DURING SEARCH BECAUSE MOL = 0 


OP! ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN*T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - + gigi ERROR OCCURRED BEFORE DATA 


COMMAND START 


“OPI'* ERROR DURING DATA TRANSFER BECAUSE ‘™MOL"’ WAS 


CZ7RMNBO RMO5/3/2 FCINL TST 2 
FRROR POINTER TABLE 


071624 


070474 
071410 
071534 
071624 


070514 
071410 
077534 
071624 


070536 
071410 
071534 
071624 


070550 





MACRO V04.00 


s ERROR 


: ERROR 


: ERROR 


> ERROR 


; ERROR 


7 ERROR 
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EMT276 
EHT1 
EDT! 
EFT1 


277 


EMT 277 
EHT1 
EDT} 
EFT 


500 
EMT 300 
EHT1 


EDT1 
EFT1 


301 


EMT 301 
EHT 1 
EDTi 
EFT1 


302 


he ga 
EHT1 
EDT1 
EFT 


303 


EMT 503 
EHT 1 
EDT] 
EFT1 


304 
3 


EHT 1 
EDT] 


ZERO 


“OP I"* ERROR a DATA TRANSFER BECAUSE 1) ON 
CYLINDER DIDN*T DROP OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 


“*"IVC'' ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS ‘‘IVC** ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 


""ILR'’ ERROR DURING DATA TRANSFER 


“"ILF’’ ERROR DURING DATA TRANSFER 


"'RMR'’ ERROR DURING DATA TRANSFER 


SEQ 0055 


— eee ee 


C2 _—— RMO5/3/2 FCINL TST 2 
FRROR POINTER TABL 


ABLE 


CO4640 071624 


070574 


071624 


070616 


° 071410 


071534 
071624 


070636 
071410 
071534 
071624 


070650 
071410 
071534 
071624 
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: ERROR 


7ERROR 


s ERROR 


: ERROR 


: ERROR 


; ERROR 


: ERROR 


EFT 


306 


EMT 306 
EHT1 
EDT 
EFT 


313 


. 
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INCORRECT ‘‘IAE'’ STATUS DURING DATA TRANSFER 


""SKI'* ERROR DURING DATA TRANSFER 


DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 


DEVICE FAULT DURING DATA TRANSFER . 


LOSS OF BIT CLOCK DURING DATA TRANSFER 


LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


UNSAFE ERROR DURING DATA TRANSFER (DVC = Q) 


SEQ 005 


“ahs 


CZ7RMNBO RMOS/3/2 FCTNL TST 2 


ERROR POINTER TABLE 


—————— —_ —— 


~ 


—— 


LLL A OE LLL a RE 
| RE A eee a cetiee 
« 


070714 
971410 
071534 
071624 


070726 


071624 


070740 


071624 


070762 
071410 
071534 
071624 


070772 


071624 


: ERROR 


: ERROR 


s ERROR 


: ERROR 


;ERROR 


: ERROR 


: ERROR 


314 
EMT 314 


315 


316 
EMT 316 
EHT1 
EDT1 
EFT 
317 
EMT 317 
EHT1 
EDT] 
EFT 
320 


EMT 320 


3?1 
EMT 321 
EHT1 
FDT1 
EFT 
322 
EMT 322 
FHT 
EDT1 
FFT] 


a. 
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DRIVE TIMING ERROR DURING DATA TRANSFER 


WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HEADER ERRORS SHOULD NOT BE SET 


epee Re Ss iSseniae i sisssstesnssiiesisiesiasiupisissssnistesnshepeneesnsséinemsnseen- 
nee ee 


CZRMNBO &M05/5/2 FCTNL TST 2 
FRROR POINTER TABLE 


071010 


071624 


071020 
071410 
071534 
071624 


071032 
071410 
071534 
071624 


071044 


071624 


071062 


071624 


071074 
077410 
071534 
071624 


- ERROR 


7 ERROR 


:ERRGR 


: ERROR 


: ERROR 


s ERROR 


; ERROR 
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323 


EMT 323 
EHT1 


324 


325 


EMT 325 
EHT1 
EDT] 
EFT 


326 
EMT 326 


331 


EMT 331 
EXT] 
EDT 
FFT 


G 5 
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DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 


ee dR end en Wee mt A - sete ap see 


SEQ 105s 


CZ7RMNBOD RMOS/3/2 FCTNL TS? 


FRROR POINTER TABLE 


SO eee 
Le < “ 


_—_—— er ee eee we ee 


071116 


071624 


671130 


071624 


071146 
077410 
071534 
071624 


071164 
071410 
071534 
071624 


071204 
071472 
071570 
071660 
071214 


071670 


071224 


071660 


s ERROR 


sERROR 


: ERROR 


: ERROR 


: ERROR 


; ERROR 


3 ERROR 


> ERROR 
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334 


336 


EMT 336 
EHT 336 
EDT 336 
EF T5356 


337 


EMT337 


EHT 337 
EDT 337 
EF TSS? 


340 
EMT 340 


EFT 336 


341 


H § 
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DATA LATE ERROR DURING DATA “RANSFER 


PIP STIL SET AFTER DATA TRANSFER = Ski = 0 


LOST MOL DURING DATA TRANSFER = OP! = 0 


LOST VOLUME VALID DURING DATA TRANSFER = IvC = 0 


DATA READ DOES NOT COMPARE WITH DATA WRITTEN 


WRITE CHECK ERROR NOT DETECTED 


WRITE CHECK ERROR AT UNEXPECTED ADDRESS 


INCORRECT DATA DURING WRITE CHECK ERROR 


eet eee Ee LL TT A RE ee me ve — 
- 
—~ -- . -- +e 


SFO 905% 


CZRMNBO RMOS/3/2 FCINL TST 2 


FRROR POINTER TABLE 


a 005202 
903808 


005206 
905210 


005224 
C05226 
005230 


005262 
005264 
005266 
005270 


071624 


071270 
071516 
071610 
071700 


071302 
071410 
071534 
071624 


071312 


z ERROR 


; ERROR 


: ERROR 


7ERROR 


; ERROR 


: ERROR 


7 ERROR 


— ee ee ee tee ee eee 


FMT 341 
FHT 336 
EDT 336 
FF T1336 


342 


EMT 342 
EHT1 


345 


EMT 343 
EHT1 
EDT1-- 
EFT] 


344 
EMT 344 
EHT 344 


EDT 344 
EFT 344 


346 


. 3 
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“"IVC"* ERROR NOT DETECTED DURING DATA TRANSFER 


“FER'' NOT DETECTED DURING DATA TRANSFER 


“HCE'' NOT DETECTED DURING DATA TRANSFER 


"BSE'’ NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH = “"IVC"' = 0 


er a ee ee 


ao 
er eee 


-2ZRMNBO RMOS/3/2 FCINL TST 2 


FRROR POINTER TABLE 


071624 


071356 
071410 
071534 
071624 


071366 
000000 
000000 
000000 


071372 


071710 


071402 
071410 
071534 
071624 


4 


s ERROR 


: ERROR 


> ERROR 


s ERROR 
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351 


EMT 351 
EHT1 
EDT] 
EFT] 


352 
EMT $52 


J 5 
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““ATA' DID NOT SET DURING SEARCH 


PROGRAM TIMEOUT WHILE TESTING RMLA 


LOOK AHEAD TEST FAILS 


BSE SHOULD NOT BE SET 


7PUT ERROR TABLE HERE 


SFO 006" 


.s 


ee ee — 


CZRMNBO RMOS/3/2 FCINL TST 2 
ERROR TABLE USAGE 


WN SO OWN UNSW OOO NAW EP wn 


MONMINIA)  -2 = eis 


Kk 5 
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-SBTTL ERROR TABLE USAGE 


;THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
:NUMBER, I.E., 


EMT = ERROR MESSAGE TABLE ADDRESS 
EHT = ERROR HEADER TABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 

EFT - ERROR FORMAT TABLE ADDRESS 


;THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
:FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS ie a 


; AND 
;TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
:NO MESSAGE TO BE TYPED FOR THE ERROR. 


: SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 

:OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
:IN_THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
sDATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
:HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 

:BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
sMUST ALSO HAVE A FORMAT. 


IN SUMMARY 
EACH NONZERO ENTRY IS THE ADDRESS OF A TABL E. 
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 


EE Te a a EN 
—_ DT SI tt A eT Ce aN tt tt tt el te et at 


 CZRMNBO RMOS/3/2 FCTNL 
| ERROR TABLE USAGE 


bc. 


a et ot oe od 
WO NOUS WO 


012737 
000402 


005037 


0127357 


013746 


001012 
000403 


TST 2 


005356 


177777 


001330 
000000 


001114 
001154 
001100 
056764 


177777 


LL 
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001330 


000020 
000022 


000026 
031752 


001131 


000004 
001154 
001156 
173310 





: THIS’ ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: met 


73658: 
64$: 


. SBTTL 


START1: 


START: 


START2: 


. SBTTL 


3: CLEAR T 


RR 
ee op FOR A HARDWARE SWITCH REGISTER. 


START OF PROGRAM 
#=-1 ,CHGADR 
START2 


MOV 
BR 


(SP) ,RO 
-(RO) 
(SP)+, (SP) + 
65$ 


sSAVE PC WHERE THE TIME OUT OCCURED 
sADJUST PC <2 
sRESTORE STACK POINTER 
i: TYPE ASCIZ STRING 
OVER THE areas 


64$ ;GET 
<CRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/ 


RO,-(SP) 


CHGADR 
#0 


;SETUP FOR TYPING OUT PC 


sPUT *HALT(O)' INSTRUCTION HERE IF YOU WISH 
:TO STOP ON UNEXPECTED TIMEOUT. 


; CHANGE RH/RM BUS ADDRESS 


>NO CHANGE IN ADDRESS 
ion ao WAIT FOR INCREMENT 
:RESET THE WORLD 


sp pe EL: THE COMMON TAGS 
HE COMMON TAGS ($CMTAG) AREA 


sEQUAL TO A * 


A i a nn 
- << 


ASCMTAG ,R6 


(R6)+ 


ASWR RO 
a~6 


#STACK,SP 
ss INITIALIZE A FEW VECTOR 


::FIRST LOCATION TO BE CLEARED 
==CL EAR MEMORY LOCATION 
>:LOOP BACK IF NO 
= =SETUP THE STACK POINTER 


ORS 
ASSCOPE ,Q@MIOTVEC ;;I10T os ihe FOR SCOPE ROUTINE 


#340, a#IOTVEC+2 


; LEVEL 


#SERROR , aMEMTVEC ‘toe VECTOR FOR ERROR ROUTINE 
#340,aMEMTVEC+2 ::LEVEL 7 


#STRAP , AA TRAPV 


VEC TRAP VECTOR FOR TRAP CALLS 


#340,aM#TRAPVEC+2;LEVEL 7 
#SPWR 


PWRVEC ary ne VECTOR 


;zSETUP END-OF-PROGRAM COUNTER 
ss INITIALIZE NUMBER OF ITERATIONS 
¢ CLEAR THE ESCAPE ON eect ADDRESS 
ALLOW ONE ERROR PER TEST 
:3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
TUP THE ERROR LOOP ADDRESS 
IF NOT FOUND OR IT IS 


-1'", SETUP FOR A SOFTWARE SWITCH REGISTER. 
a4ER ) 


66S 
65$ 


WR, SWR 
#DDISP, DISPLAY 
#-1,aSWR 


;:SAVE ERROR VECTOR 

;;SET UP ERROR VECTOR 

;;SETUP FOR A HARDWARE SWICH REGISTER 

;sAND A HARDWARE DISPLAY REGISTER 

>zTRY TO REFERENCE HARDWARE SWR 

eet ANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT = -1 
::BRANCH IF NO TIMEOUT 


———— EO en ee ee 


SEQ 0065 


CZRMNBO RMOS/3/2 FCINL IST 2 
INITIALIZE THE COMMON 


00 
46 006202 


000403 
112737 © 


005037 
122737 
00 


005046 
113716 
104403 

001 


TAGS 


005654 
000176 
000174 
000004 
001230 
000200 
001244 


005342 
000300 


177777 
032122 
005760 


000042 
001242 
001154 


00000T~ 


001332 
000016 


000040 
000007 


001332 
000042 


006146 


001332 


MACRO v04.00 


001243 
001154 


000004 
000006 


000042 


000001 
000176 


001150 


000041 


001332 
001332 
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643: ay #65$, (SP) 72SET UP FOR TRAP RETURN 
65$: MOV #SWREG, SWR 7zPOINT TO SOFTWARE SwWR 
MOV #DISPREG, DISPLAY 
66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
CLR $PASS | ;CLEAR PASS COUNT 
BITB MAPTSIZE,SENVM SOTEST USER SIZE UNDER APT 
BEQ 67$ 77 YES,USE NON=-APT SWITCH 
oe MOV #$SWREG, SWR 7zNO,USE APT SWITCH REGISTER 
;SETUP ‘‘TIMEOUT’’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
MOV #BADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
MOV #PR6, ERRVEC+2 “LEVEL 6 
-SBTITL TYPE PROGRAM NAME 
3: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #~1 + ¢FIRST TIME? 
BNE 58S ; ; BRANCH IF NO 
CMP #SENDAD , a442 ACT=11? 
BEQ 68$ «BRANCH IF YES 
TYPE 69$ ths, ASCI1Z erg 
BR 68$ GET OVER THE ASCIZ 
jie: eASCIZ <CRLF>@CZRMNBO - * RMO5/3/2 FUNCTIONAL TEST, PT 2a@<CRLF> 
-SBTTL GET VALUE FOR SOF TWARE SWITCH REGISTER 
TST as2 WE RUNNING UNDER XXDP/ACT? 
BNE 70$ «BRANCH IF YES 
CMPB SENV 41 : ¢ARE WE RUNNING UNDER APT? 
BEQ 70$ ;BRANCH IF YES 
CMP SWR ,ASWREG ; ¢ SOF TWARE SWITCH REG SELECTED? 
BNE 71$ CH IF NO 
i — 715 GET SOF T=SWR SETTINGS 
ve: MOVB #1,$AUTOB 3zSET AUTO-MODE INDICATOR 
7 THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
= PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
CLR XXDP zCLEAR *XXDP* LOAD DEVICE _ STORAGE 
CMPB #16,0441 = LOADED FROM AN RMO5/3/2 ? 
BNE 3$ “BRANCH IF NOT 
MOV @440,XXDP :GET DEVICE INDICATOR AND NUMBER 
CMPB 7XXD 31S IT A VALID NUMBER ? 
BHIS $ : YES 
CLRB XXDP :NO, DEFAULT TO DRIVE 0 
1$: TST aA42 > CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 2$ “BR IF NEITHER 
TYPE 73$ i: TYPE ASCIZ STRING 
R 72$ :GET OVER THE ASCIZ 
Ted ASCIZ <CRLF>/NOT TESTING DRIVE / 
CLR - (SP) ;CLEAR WORD ON STACK 
MOVB XXDP, (SP) ;GET DRIVE ADDRESS 
TYPOS ; TYPE THE ADDRESS 
-BYTE 1 sONLY 1 CHARACTER 


| 47 006203 
| 48 006204 


eee ee 


| CZRMNBO RMOS/3/2_FCTNL 
_ GET VALUE FOR SOF TWARE 


113716 


104401 
000435 


005737 
001561 
012737 


132737 
001146 


005001 
013700 
104401 


136137 
001531 


0 
104401 


012760 


007430 


———————— ee 


TST 2 


C01217 


177777 
006226 


001332 


006256 


006356 


000042 
000377 


000200 


001276 
064350 


064666 
001217 


004000 


000026 
064 366 
020025 


5 
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SWITCH REGISTER 


001300 


001243 


001300 


000010 


000010 
000000 


006776 





2$: 


-75$: 
54S: 


- effet 


76$: 


:: 788: 

3$: 

: CHECK FOR AUTO 
TST 


a LEADING ZEROS 
:GET NUMBER OF DRIVES 


a. TIME THRU HERE ? 
Rakin ASCIZ STRING 


3 GET | eat THE ASCIZ 


CET D WORD ON STACK 
; GET DRIVE ADDRESS 
TYPE DRIVE ADDRESS 
LY 1 CHARACTER 
 SUPRESS LEADING ZEROS 
ii TYPE ASCIZ STRING 
OVER THE ASCIZ 


6$ ,GET 
/, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF > 


73 TYPE ASCIZ STRING 
OVER THE ASCIZ 


$ ;GET 
/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF > 


RUNNING IN AUTO MODE ? 
IF NO 


BYTE 0 

TYPE SCRLF 
BR 3$ 

INC #-1 
BNE 3$ 

TYPE 75$ 

R 243 

eASCIZ <CRLF>/TO TEST DRIVE / 
CLR -(SP) 
MOVB —-XXDP,, (SP) 
TYPOS 

BYTE 1 

BYTE 0 

TYPE 77$ 

ASCI2 

TYPE 78$ 

BR 3 

-ASCIZ 

MODE OR STANDLONE MODE 
a#s2 

BEQ STANDAL ONE 
MOV #377.$DEVM 


“BR 
:SET DEVICE MAP FOR ALL DRIVES 


“hs a IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 


1$: 


BITB  #BIT7,$ENVM 
BNE 12$ 

1) on; 

MOV —« $BASE..RO 

TYPE »SY¥STAT 

BITB —_ ATNTBL(R1),$DEVM 
BEQ 11$ ; 
TYPE —_, $CRLF 

MOV _—sR1,- (SP) 

TYPOS 

BYTE 2 

AYIE.0-- 

TYPE —_BLNKS4 

MOV _— #CLR, RMCS2(RO) 
MOV _—«R1, RMCS2(RO) 

TST - RMDS(RO) 

BIT #NED ,RMCS2(RO) 
BNE 3$ 

BIT #DVA,RMCS1(RO) 
BEO 0 s«G4$ 

MOV RMDT (RO) ,R2 

MOV = ASRMO2,1 

(MP = #20025 -R2 

BEQ 0—tsé«é'S 


;SIZING ALLOWED ? 
NO 


:;START FROM DRIVE 0 ; 
;LOAD THE BASE ADDRESS 
TYPE "UNIT STATUS:' 


a DEVICE PRESENT IN MAP ? 


2 CR=LF 

7zSAVE R1 FOR TYPEOUT 

7:GO TYPE~~OCTAL ASCII 

7s TYPE 2 DIGIT(S) 

3; SUPPRESS > iia ZEROS 
: TYPE 4 BLANK 


sCLEAR MASS BUS 

;LOAD THE DRIVE ADDRESS 
sACCESS DRIVE REGISTER 
:35 ye PRESENT ? 


:BR IF NO 
353 ree AVAILABLE ? 


:BR 
> SAVE DRIVE 8 REGISTER IN R2 
sASSUME RMO2 DEVICE 

:SINGLE PORT M02 , ‘ 


;BR IF YES 


SEQ 0065 


St 
~ et 


700 
006702 


CZRMNBO RMOS/3/2 FCINL T 
GET VALUE FOR SOF TWARE 


oeeTes 
001425 


024025 


064373 
020024 


024024 
064400 
020027 
024027 


064405 
010000 


J0+445 
064460 
064666 
064477 
064666 


001332 
001352 
064426 


064510 
064562 
000007 


601217 
007476 


Te 
SuITCH REGISTER 


006776 


006776 


000012 


001 500 


007300 


0 v04.00 


2$: 


3$: 


4$: 
5$: 


6$: 


7$: 


8$: 
9$: 


10$: 
11$: 


12$: 


B 6 
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CMP #24025 ,R2 
2$ 


MOV #$RMO03,10$ 
CMP o_o 


;DUAL PORT RMO2 ? 
;BR IF YES 

sASSUME RMO3 DEVICE 
are” RMO5 ? 


BEQ 2 sBR I 
CMP #24026 ,R2 DUAL PORT RMOS ? 
BEQ 2$ BR IF 


MOV #$RMOS5 . 10$ 
CMP #20027, oRe 


2 
CMP #24027 ,R2 
BE 2$ 
TYPE -NOTRM 
BR 5$ 
BIT | #MOL,RMDS(RO) 


YES 
s ASSUME RMOS A 
:SINGLE PORT RMO5 ? 
7BR IF YES 
s DUAL PORT RMOS ? 


IF YES 
“DRIVE NOT AN RMO5/3/2 
CHECK NEXT DRIVE 
71S MEDIUM ON LINE ? 
IF NO 


BEQ 6$ “BR 

BR 7$ 

TYPE NOTPRS :DRIVE NOT PRESENT 
5$ “CHECK NEXT DRIVE 

TYPE  ,NOTAVL :DRIVE NOT AVAILABLE 

BICB ATNTBL(R1).$DEVM :CLEAR DEVICE FROM BIT map 
11$ :CHECK NEXT DRIVE 

TYPE .UNTOFF :DRIVE OFFLINE 

BICB ATNTBL(R1).$DEVM :CLEAR DEVICE FROM BIT MAP 
9$ :PRINT DRIVE TYPE 

TST XXDP :LOADED FROM RMO5S/3/2 ? 

BEO 8$ =NO 

CMPB —s- KXDP-,R1 :I1S THIS THE DRIVE ? 

BNE 5$ :BR IF NO 

TYPE ,LODEV :DRIVE IS LOAD DEVICE 

BR $$ 

TYPE UNTON ;DRIVE ONLINE 


TYPE “BLNKS2 


TYPE “PRINT DRIVE TYPE 

-WORD 0 sMESSAGE ADDRESS HERE 

INC R} 3 : INCREMENT THE DRIVE ADDRESS 
CMP R147 ALL DRIVES ARE CHECKED ? 
BLE 1$ ;BRANCH IF NOT 

TYPE ,ScRLF :CR-LF 

JMP CMNSTART ; JUMP TO COMMON START 


SEQ 0066 


— 


007020 


WN ODOONOULSWY-ODO@MNOWMfwr-a 
™ 
=) 
Ww 
NM 


Non 
wy x 
8 
N 
—> 
S 


45 007174 


55 007234 
56 007236 


004737 


005227 
001023 


113737 


067230 
177777 


063450 


001176 
001176 


001176 
101360 


064554 
001217 


001330 


001330 
001217 


064025 
001276 


064562 
001176 
160000 
064035 
001176 
064077 
001272 
064562 
001176 
001000 
064106 
001176 
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000131 


001176 


001276 


001176 


001272 


-SBTTL STANDALONE INPUT ROUTINES 
S TANDAL ONE : 
JSR PC ,STKINT INITIALIZE CONSOLE 
INC #-1 sFIRST TIME THRU HERE ? 
BNE 2$ 7BR IF NO 
SEE IF OPERATOR WANTS HELP TEXT 
TYPE »~MSHELP sWANT HELP ? 
RDCHR ;GET RESPONSE 
MOV (SP)+,$TMP1 ;SAVE AND ECHO RESPONSE 
CMPB STMP1,a'Y ;WAS IT A YES RESPONSE ? 
BNE 1$ ;NO 
TYPE ,SIMP1 sTYPE ‘y’ 
TYPE e YES = TYPE HELP TEXT 
1$: TYPE oN ; TYPE. °N' 
TYPE SCRLF : CR-LF 
BR 3$ 
ggee IF USER WANTS TO CHANGE UNIBUS ADDRESS 


: CHANGE RH/RM BUS ADDRESS ? 


TST CHGADR 

BEQ 7$ :BR IF NO 

CLR CHGADR :NO CHANGE NEXT TIME 
TYPE - SCRLF ; CR-LF 


” ls TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 


4S: 
53:. 


6$: 


TYPE ,CNSLO1 : TYPE CURRENT BUS ADDRESS 


$BASE .-(SP) 


MOV ; 7 SAVE SBASE FOR TYPEOUT 
TYPOC O TYPE--OCTAL ASCIICALL DIGITS) 
TYPE -BLNKS2 : TYPE 2 BLANKS 

RDOCT :GET NEW BUS ADDRESS 

MOV (SP)+,$TMP1 : CARRIAGE RETURN ? 

BEQ : YES~SKIP TO NEXT ENTRY 

CMP #160000,$TMP1 ;BASE ADDRESS IN I/O PAGE ? 
BLOS 4$ ;YES 

TYPE CNSLO2 : TYPE WARNING MESSAGE 

BR : TRY AGAIN 

MOV STMP1 , SBASE >STORE NEW BUS ADDRESS 

TYPE co 

CLR -(SP) 

Trae $VECT1, (SP) ;GET CURRENT VECTOR ADDRESS 
TYPE -BLNKS2 : TYPE 2 BLANKS 

RDOCT :GET NEW VECTOR ADDRESS 
MOV (SP)+,$TMP1 ; CARRIAGE RETURN? 

BEQ 7$ :YES-SKIP TO NEXT ENTRY 

re #1000, $1MP1 : VECTOR ADDRESS < 1000 ? 
oo. pcs :TVEE WARNING MESSAGE 

MOVB $TMP1 ,$VECT1 sSTORE NEW VECTOR ADDRESS 


LS TC aw a ——— 


SEQ 006 / 


| CZRMNBO RMO5/3/2 FCTNL TST 2 
| STANDALONE INPUT ROUTINES 


i 


57 

58 

59 007244 005227 177777 
60 007250 00 


73 007326 023727 001176 
001436 


75 007336 104401 001176 
76 GO7342 023727 001176 


002430 
78 007352 023727 001176 
79 007360 


83 0073566 012637 001176 
84 007372 023727 001176 


86 007402 104401 063445 

87 007406 104401 901176 

88 007412 023727 001176 
002404 

90 007422 023727 001176 
0034035 


92 007432 104401 064304 


94, 
95 007440 013701 001176 


96 007444 042701 177770 


97 007450 156137 164666 
98 Ramee 122737 000377 


100 007466 104401 001217 
101 007472 000137 006464 


\ ee - ee ee ee 
—— -—— tine ie Ne LOLOL EC I i ee 
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DIALOGUE TO INPUT DEVICE NUMBERS 


7$: INC #-1 FIRST TIME THRU ? 
BNE aE F NO 
TYPE ,CNSLO7 :TYPE INPUT INSTRUCTIONS 
8$: TYPE ,$CRLF :CR=LF 
9$: CLR $DEVM “CLEAR DEVICE MAP 
TYPE ,MSDRVS :TYPE "DRIVE(S): ° 
RDCHR 
| MOV (S?)+,$TMP1 :GET RESPONSE 
000101 CMP STMP1,4°A  . 31S INPUT ‘'A"’ ? 
BNE 10$ :NO 
TYPE ALL -YES, TYPE ‘ALL’ AND GO 
001300 MOV #377. SDEVM SET DEVICE MAP FOR ALL DRIVES 
JMP XS1Z ;AUTO SIZE. 
000015 10$: CMP STMP1,ACR ; CARRIAGE RETURN ? 
BEQ 12$ YES 
TYPE ~$TMP1 “ECHO RESPONSE 
000060 - CMP $TMP1,#'0O “NUMBER < 0 ? 
BLT 12$ :YES 
000067 CMP $TMP1,#'7 “NUMBER > 7 ? 
BLE 13$ sNO 
BR 12$ s ILLEGAL INPUT 
11$: RDCHR 
MOV (SP)+,$TMP1 :GET RESPONSE 
000015 CMP $TMP1,A4CR CARRIAGE RETURN ? 
BEQ 14$ : YES | 
TYPE , COMMA TYPE °, ' 
TYPE ~STMP1 “ECHO RESPONSE 
000060 CMP STMP1,4'°O “NUMBER < 0 ? 
BLT 12$ : YES 
000067 CMP $TMP1,4#°7 “NUMBER > 7 ? 
BLE 13$ zNO 
12$: TYPE , CNSLO8 TYPE CR-LF ‘* 2?ILLEGAL INPUT'' 
BR 2% sRETRY 
13$: MOV $TMP1,R1 :R1 = DRIVE NUMBER 
RIC #AC7_RI 
001300 BISB ATNTBL (R1) $DEVM :SET DEVICE IN MAP 
001300 cHPe #377, $DE -DONE ? 
H : 
148: TYPE ‘SCRLE > CR=LF 
JMP KSI2Z :GO SIZE DEVICES 


E 6 
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ae ee a ote ee ee 
' 





LL A oe ee 


STANDALONE INPUT ROUTINES SEQ 0069 
1 :ASSEMBLE TEST QUE FROM DEVICE MAP 
2 007476 CMNSTART: 
3 007476 104401 064520 TYPE DRIVES ;TYPE *DRIVE(S) TO BE TESTED’ 
4 007502 013700 001300 MOV SEM, RO :RO = DEVICE 
5 007506 001 BNE *BR IF DRIVES TO TEST 
6 007510 104401 063445 TYPE COMMA : TYPE 
7 007514 104401 064547 TYPE NONE _ ; TYPE ‘Kone 
8 007520 012701 001470 1$ MOV #TSTQUE+2,R1 7R1 = ADDRESS OF FIRST ENTRY IN QUE 
9 007524 010137 001466 MOV R1, TSTQUE ; INITIALIZE ENTRY POINTER 
10 007530 012702 000001 MOV #1,R2 -R2 = DEVICE POINTER 
11 007534 005003 CLR R3 7R3 = DEVICE NUMRER 
12 007536 030200 2$: BIT R2,RO is THIS DEVICE IN MAP ? 
13 007540 001413 BEQ 3$ 
14 007542 104401 062445 TYPE » COMMA PE. hs 3 
15 007546 010311 MOV R3,(R1) ‘YES - ENTER DEVICE NUMBER IN ue 
16 007550 010346 MOV R3.-(SP) : = SAVE R3 FOR TYPEOUT 
007552 104403 TYPOS :3GO_ TYPE=-OCTAL ASCII 
007554 001 .BYTE 1 ::TYPE 1 DIGIT(S) 
00755 000 -BYTE 0 : SUPPRESS LEADING ZEROS 
17 607556 116361 064666 000001 MOVB  ATNTBL(R3),1(R1):ENTER ATTENTION BIT IN QUE 
18 007564 062701 000002 ADD #2,R1 -ADVANCE ENTRY POINTER 
19 007570 006302 3$: ASL R2 :ADVANCE DEVICE POINTER 
20 007572 105702 TSIB~—s_ R2 :DONE ALL DEVICES ? 
21 007574 001402 BEQ 4$ “YES 
22 007576 005203 INC R3 “ADVANCE DEVICE NUMBER 
23 007600 000756 BR 2$ “ENTER NEXT DEVICE 
24 007602 005011 4$: CLR (R1) “TERMINATE TEST QUE 
c 007604 104401 001217 TYPE ,SCRLF : TYPE CRLF 
27 SIZE FOR CLOCK 
28 007610 004737 036460 JS PC,SIZCLK :SEE IF CLOCK PRESENT 
9 007614 000425 $ “YES = CLOCK IS PRESENT 
30 007616 104401 007624 TYPE 65% :zTYPE ASCIZ STRING 
007622 000413 64$ *:GET OVER THE ASCIZ 
>:65$: ASCIZ <CRLF>/NO ‘°L* OR ‘ps CLOCK/ 
007652 64$: 
31 007652 005737 000042 TST ang? :ANY MONITOR PRESENT ? 
32 007656 001002 BNE 5$ =BR IF YES 
33 007 000137 005432 JMP STAR > JUMP TO START 
34 007 000137 032112 S$: JMP Scr T42 =RETURN CONTROL TO MONITOR 
My 007670 6$: 
37 007670 000240 READY: NOP READY TO START TEST 
38 007672 105737 001300 TSIB = SDEVM “ANY DRIVES IN MAP ? 
39 007676 001007 BNE 2$ =BR IF YES 
40 007700 005737 000042 TST aA42 “ANY MONITOR PRESENT ? 
41 007704 00100 BNE 1$ “BR IF YES 
42 007706 000137 005432 JMP START > JUMP TO START 
iz 007712 000137 032112 1$: JMP $GET42 RETURN CONTROL TO MONITOR 
45 007716 105037 001116 2$: CLRB $TSTNM :RESET TEST NUMBER 
46 0077 005037 001206 CLR STIMES s INITIALIZE NUMBER OF ITERATIONS 
47 007726 005037 001326 CLR CTLFG CLEAR CONTROL-C FLAG 
48 007732 737 061230 JSR PC, $TKINT “INITIALIZE TTY 
49 007736 012746 000240 MOV #PR5,-(SP) > ;PUT NEW PS ON STACK 
007742 012746 007750 MOV #64$_-(5P) *:PUT NEW PC ON STACK 
007746 000002 RTI *:POP NEW PC AND PS 


ee eee 


CZRMNBO RMO5/3/2 FCTINL TST 2 


5 TANDALONE 


5G 
51 


007750 
007750 
007756 


0 
012737 


104401 
104401 
013746 


104403 


001376 


INPUT ROUTINES 


011000 


001217 
064 342 
001234 


_ LLL TT TS - 
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001234 


001334 


000010 
000010 


001334 


MOVB 
CLR 


@TSTQUE ,SUNIT 
MEDENB 


sLOAD DRIVE NUMBER 
;CLEAR MEDIA ENABLE 


>CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK 
:OF THE DIFFERENT DRIVE TYPES 


3$: TYPE 


ee ee ee eee | 


ATAS,LSTRK 
$BASE ,RO 
#C.R,RMCS2(RO) 


ATSTQUE ,RMCS2(RO) 


RMDT (RO) ,R2 
#177770.R2 
#7,R2 


¢ ASSUME LAST TRACK FOR RMO2/3 = 
;RO = UNIBUS ADDRESS 
= CLEAR MASSBUS | 
GET RM Re a DEVICE UNDER TEST 


; SAVE ’ORIVE TYPE BITS 
IT AN RMOS ? 
MUST BE AN RMO2 OR RMO3 


3$ ;NO, 
#TA16!TA2,LSTRK :YES==SET LAST TRACK = 18. 
: TYPE DRIVE NUMBER TO BE TESTED($UNIT) 


“$CRLF 
*MSGDRV 
$UNIT,-(SP) 


;CR-LF 


sTYPE ‘DRIVE’ 

:; SAVE SUNIT FOR TYPEOUT 

7: TYPE DRIVE NUMBER 

;-GO_ TYPE=-OCTAL ASCII 

sz TYPE 2 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 

; THESE TWO LOOPS ARE ADDED TO 
sWAIT FOR TTY 


SEQ 0070 


1S 


C 
T 


Z 
, 


RMNBD 8MO05/43/2 FCTNL 
CONTROLLER ACCESS TEST 


ODWNAMNLWMH-OVDOONAW Hwny 


—2 od Oe ie ee a ee | 

Seo soecsee 

ond aad OnNN™N 
RUENS 


oOo COCOOCO°0O 
ars 


010226 
010230 


012737 
110160 


005057 
000137 


000004 


612737 


012737 


TST 2 


001100 
001276 
001466 
000001 


000004 


000004 


000006 
000004 
000042 
005422 


001300 
031724 


007100 
001276 


001466 
000002 001226 


000000 001444 
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001226 


000004 
000006 
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bd CATA AAA A ARERR AAERAEHEREARRERAAAEARAEHEREREHR HERERO ® 


S*TEST 1 CONTROLLER ACCESS TEST 
CTSA REAR AAAEAEEEEREEEEEEEEEAEREREHH HERE RHEE ERE E Ee 
7811: 
SCOPE 7SCOPE CALL 
NOP START OF TEST 
MOV ASTACK,SP INITIALIZE STACK POINTER 
MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 7 (R1) = DEVICE BEING TFSTED 
MOV #1,$TESTN ;SET TEST NUMBER IN APT MAIL 8OxX 
CLR R1 
MOV ERRVEC,-(SP) ;;PUSH ERRVEC ON STACK 
MOV ERRVEC+2 - (SP) 37PUSH ERRVEC+2 ON STACK 
MOV #1$,ERRVEC 
MOV #PR6, ERRVEC+2 
MOVB R1,.RMCS1+1(RO) ;MOVE HI BYTE TO RMCS1 
MOV R1,RMWC (RO) s;MOVE WORD COUNT REGISTER 
MOV RMWC (RO) ,R2 
MOV R1,RMBA(RO) sMOVE BUS ADDRESS REGISTER 
MOV RMBA (RO) 
MOV RMCS2(RO) ,-(SP) ;PUSH RMCS2(RO) ON STACK 
MOV R1,RMCS2(RO) :MOVE CONTROL STATUS REGISTER 
MOV RMCS2(RO),R2 
MOV (SP)+, RMCS2(RO) POP STACK INTO RMCS2¢(RO) 
MOV R1,RMDB(RO) sMOVE DATA BUFFER 
MOV RMDB(RO),R2 
MOV (SP)+, ERRVEC+2 © sPOP STACK INTO ERRVEC+2 
MOV (SP)+, ERRVEC » =POP STACK INTO ERRVEC 


BR 3$ sNO BUS TIMEOUT OCCURRED 


1$: CMP (SP) +, (SP) + s ADJUST STACK 


MOV (SP) +, ERRVEC+2 POP STACK INTO ERRVEC+2 
cit tle dashes : POP STACK INTO ERRVEC 
TST W442 ; STAND ALONE MODE ? 
BNE NO! 
JMP START1 YES=GO GET $BASE 
2$: CLR $SDEVM ;FUDGE NO DRIVES IN MAP 
$s JMP $EOP =RETURN TO $EOP 


SL RRR RK E ERE EERE REE EERE KEKE EREEKEKEKERKERE EEE 


s*TEST 2 FORMAT ZEROS 


. REAR EEE ERE EEE EAE EEE EKER REECE RAE ER EE 


TST2: 


SCOPE ;SCOPE CALL 

NOP ;START OF TEST 

MOV ASTACK,SP s INITIALIZE STACK POINTER 

MOV $BASE ,RO :RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 2 (RI) = DEVICE BEING TESTED 

MOV #2,$TESTN ;SET TEST NUMBER IN APT MAIi BOX 


; SETUP PARAMETERS FOR pepper DATA BUFFER 
Pe MOV #0 ,RMOFO ;18 BIT FORMAT 


ee ema ae eee we 


VISSHISAL 


ree etrerteeneecet centers seesignaesttendtenee Se 

ne a 
; 
i 


H 6 
0 RMOS/3/2 FCINL TST 2 MACRO VO046.00 4-APR-81 11:43:33 PACE 13-1 


FORMAT ZEROS SfQ N72 
0322 012737 O00000 001446 MOV #0. .RMDCO sCYLINDER = 0 
0330 012737 (©00000 001420 MOV #0. RMDAO : TRACK = Q, SECTOR = 0 
0336 012737 177376 001414 MOV #-258.,RMWCO 32 + 256 WORDS (2°S COMP) 
6344 012737 101360 001416 MOV WBUFONE,RMBAO = :DATA BUFFER ADDRESS 
0352 012737 000062 001412 MOV #WH,RMCS10 sWRITE HEADER AND DATA 
-VERIFY THAT SECTOR IS NOT BAD 
010360 004737 033152 JSR PC,BADS(T :CALL BAD SECTOR MODULE 
010364 000405 BR 2$ :GO TO 2$ IF NO ERROR 
010366 104401 0633466 TYPE SSCTMSG :TYPE BAD SECTOR MESSAGE 
010372 104000 EMT :ERROR # DEFINED BY BADSCT SUBROUTINE 
910374 000137 011130 es JMP 20$ :GO TO 20$ IF ERROR 
010400 012737 065000 001174 MOV #ZEROS, $TMPO ZUSE ALL ZEROS DATA PATTERN 
010406 012737 000001 001176 MOV a. $TMP1 
010414 004737 035104 JSR C. GENBUF :GO GENERATE DATA BUFFER 
910420 3$: 
=PREPARE DEVICE FOR DATA TRANSFER 
610420 006737 032176 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
910426 154130 -WORD 154130 “TASK DESCRIPTOR AS FOLLOWS: 
“SELECT DEVICE & VERIFY DEVICE AVAILABLE 
=CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
=VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI'’ OR ‘PIP’' IS SET 
“VERIFY RECALIBRATION 
010426 000404 BR 4$ : :GO TO 4$ IF NO ERROR 
010430 000240 NOP >RETURN HERE IF ERROR 
010432 104000 EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
010434 000137 011130 JMP 20$ :GO TO 20$ IF ERROR . 
010440 43: 
:SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
010440 012737 000005 001412 MOV #SEEK'GO,RMCS10 :CHANGE COMMAND TO SEEK 
010446 012702 001553 MOV APUT INX,R2 “WRITE REGISTER INDEX TABLE ’ 
010452 112722 000006 MOVB  ARMDA, (R2)+ " 
010456 112722 000034 MOVB  #RMDC.(R2)+ 
010462 112722 000032 MOVB  #RMOF . (R2)+ 
010466 112722 000000 MOVB  #RMCS1, (R2)+ 
010472 112722 000200 MOVB #200. (R2)+ 
010476 004737 036240 JSR PC ,PUT -GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
010502 000404 | BR 5$ -GO TO 5$ IF NO ERROR 
010504 000240 NOP “RETURN HERE IF ERROR 
010506 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
010510 000137 011130 JMP 20$ -GO TO 20$ IF ERROR 
010514 S$: 
:SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
010514 004737 035704 JSR PC,GETSTS -SETUP FOR STATUS 
010520 004737 036602 JSR PC. TIMOUT “WAIT FOR SEEK TO COMPLETE 
010524 6$: 
:G0 READ SEEK STATUS 
010524 004737 035770 PC.GET -GO READ REGISTER(S) WITH GET SUBROUTINE 


ee ee 


Sr ee ee 


010562 


80 010562 


010632 


ta 


J RMOS/3/2 FCTNL 
FORMAT ZEROS 


000137 


004737 
004737 


0001 37 


004737 


TST 2 


017130 


044104 


011130 


000065 
6 


000200 
036240 


011130 


056602 
035770 


011130 


036766 


011150 
051502 
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BR 7$ :GO TO 7$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT sERROR # DEFINED Ris GET SUBROUTINE 
a JMP 20$ :GO TO 20$ IF ERR 
sVERIFY THE RESULTS OF THE SEEK COMMAND 
JSR PC ,SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
BR 8$ :GO TO 8$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
“JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
a JMP 20$ :GO TO 20$ IF ERROR 


sSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 


MOV #WH'GO,RMCS10 ;WRITE HEADER AND DATA 
MOV #PUT INX+3, 22 EXTEND REGISTER INDEX TABLE 
MOVB #RMWC, (R2)+ 
MOVB ARMBA, (R2)+ 
MOVB ARMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC PUT :GO WRITE REGISTERCS) WITH PUT SUBROUTINE 
ate) 9$ :GO TO 9$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT 7ERROR # DEFINED BY PUT SUBROUTINE 
- JMP 20% :GO TO 20$ IF ERROR 


:wAIT dig” ein COMMAND TO vata O33 READ STATUS 
J ’ 


PC, TIMOUT FOR COMMAND TO COMPLETE 


JSR PC ,GET 7:GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 10% :GO TO 10$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
JMP 20$ *GO TO 20% IF ERROR 
10$: 
SVERIFY RESULTS OF WRITE COMMAND 
JSR PC.PRIERR :GO CHECK FOR PRIMARY ERRORS 
RR 11$ ;GO TO 11% IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT , sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ 3;G0Q BACK FOR MORE ERROR bits 
ve JMP 20$ :GO TO 20$ IF ERROR 
JSR PC ,DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 12$ :GO TO 12$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT Z;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
138 JMP 20$ :GO TO 20% IF ERROR 
JSR PC,SECERR 3;GO CHECK FOR SECONDARY ERRORS 
BR 13$ :GO TO 13% IF NO ERROR 
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001412 
001416 


sRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 


JSR PC ,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
138 JMP 20$ :GO TO 20$ IF ERROR 
sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV #RH'!GO,RMCS10 ZREAD HEADER & DATA COMMAND 
MOV #BUF TWO, RMBAO ; CHANGE BUS ADDRESS 
JSR PC,PuT 7;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 14$ :GO TO 14$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
JMP 20 GO TO 20$ IF ERROR 
14$: 
:WAIT FOR READ TO a AND GET STATUS 
JSR PC,TIMOUT WAIT FOR READ TO COMPLETE 
JSR PC,GET 3;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 15$ ;GO TO 15$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ZERROR # DEFINED a GET SUBROUTINE 
JMP 20$ :GO TO 20% IF ERROR 
15$: 
; VERIFY THE RESULTS OF — OPERATION 
JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 16$ :GO TO 16% IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT ZERROR #4 DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
16% JMP 20S :GO TO 20$ IF ERROR 
JSR PC .DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 


BR 17$ ;GO TO 17$ IF NO ERROR 


NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS | 
ie JMP 20$ :GO TO 20$ IF ERROR 
JSR PC,SECERR 3;GO CHECK FOR SECONDARY ERRORS 
BR 18$ :GO TO 18$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :;GO BACK FOR MORE ERROR CHECKS 
JMP 20$ 3GO TO 20$ IF ERROR 
18$: 
: VERIFY DATA 
JSR PC, CMPBUF ;GO COMPARE WRITE, READ DATA BUFFERS 
-WORD BUFONE ;STARTING ADDRESS OF WRITE BUFFER 
-WORD BUFTWO SSTARTING ADDRESS OF READ BUFFER 
BR 19$ ;GO TO 19% IF NO ERROR 
NOP *RE TURN HERE IF ERROR 
EMT “ERROR # DEFINED BY CMPRUF SUBROUTINE 
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19$: 
001444 BIT #EMT16,RMOFO =; TEST 16 BIT MODE YET ? 
BNE 20$ YES \ 
001444 MOV #FMT16,RMOFO ise! 16 BIT MODE AND 
JMP 1$ « <iTEST AGAIN 
208: 
ad FERRARA RAE EAR EEE KKH E REET ee 
S*TEST 3 ZERO FILL TEST 
2 FEA AAR ERA RARE ERE ARERR ERED 
1ST3: 
SCOPE :SCOPE CALL 
p ;START OF TEST 
MOV #STACK, SP s INITIALIZE STACK POINTER 
MOV $BASE ,R ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
101226 MOV #3, $TESTN ;3SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
001446 MOV #0,RMDCO ;CYLINDER = 0 
001420 MOV #0,RMDAO : TRACK = 0, SECTOR = 0 
001444 MOV #FMT16,RMOFO 316 BIT FORMAT 
001414 MOV #-258.,RMWCO ;2 + 256 WORDS (2'S COMP) 
001416 MOV #BUFONE,RMBAO  ;DATA BUFFER ADDRESS 3 
001412 MOV #WH ,RMCS10 ;WRITE HEADER AND DATA 
;VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
BR 1$ :GO TO 1$ IF NO ERROR 
TYPE . SCTMSG ; TYPE BAD SECTOR MESSAGE 
EMT ;ERROR # DEFINED BY BADSCT SUBROUTINE 
= JMP 18$ :GO TO 18% IF ERROR 
001174 MOV #ZEROS,STMPO = ; USE ALL ZEROS DATA PATTERN 
001176 MOV #1,$TMP1 
i JSR PC, GENBUF :GO GENERATE DATA BUFFER 
;PREPARE DEVICE FOR DATA, TRANSFER 
JSR PC, TSTPR :PREPARE DEVICE FOR TEST 
-WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘SKI’ OR 'PIP'’ IS SET 
‘VERIFY RECAL IBRATION 
BR 3$ O TO 3$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY TSTPRP SUBROUT!NE 
- JMP 18$ :GO TO 18$ IF ERROR 


sSETUP PARAMETERS AND EXEC''TE SEE 
MOV ASEEK!GO,RM_S10 
MOV #PUTINX,R2 


001412 


K TO GET DRIVE ON CYLINDER 
sCHANGE COMMAND TO SEEK 
:WRITE REGISTER INDEX TABLE 


SFQ 9075 


teen tneeeeteneneeecnenneemmmnn on 
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ZERO FILL TEST SEQ O076 

158 011314 112722 000006 MOVB #RMDA, (R2)+ 

159 011320 112722 600034 MOVB #RMDC , (R2)+ 

160 011324 112722 000032 MOVB #RMOF , (R2)+ 

161 011330 112722 000000 MOVB #RMCS1, (R2)+ 

166 011334 112722 000200 MOVB #200, (R2)+ 

164 011340 004737 036240 JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
011344 000404 BR 4$ 3;GO TO 4$ IF NO ERROR 
011346 000240 NOP “RETURN HERE IF ERROR 
011350 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
011352 000137 011764 JMP 18$ 3;GO TO 18% IF ERROR 

1 011356 4$: 

167 ;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 

168 011356 004737 035704 JSR PC,GETSTS SETUP FOR STATUS 

169 011362 004737 036602 JSR PC, TIMOUT “WAIT FOR SEEK TO COMPLETE 

ia 011366 c$: 

172 3;GO READ SEEK STATUS 

173 €11366 004737 035770 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
011372 000404 BR 6$ :;GO TO 6$ IF NO ERROR 
011374 000240 NOP > RETURN HERE IF ERROR 
011376 104000 EMT “ERROR # DEFINED BY GET SUBROUTINE 
011400 000137 011764 JMP 18$ :GCO TO 18$ IF ERROR 

ye 011404 6$: 

176 VERIFY THE RESULTS OF THE SEEK COMMAND 

177 011404 004737 044104 JSR PC,SEKSTS 3GO VERIFY RESULTS OF SEEK OPERATION 
011410 000405 Ps BR 7$ :GO TO 7$ IF NO ERROR 
011412 000240 NOP . ;RETURN HERE IF ERROR 
011414 104000 EMT ZERROR # DEFINED BY SEKSTS SUBROUTINE 
011416 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
011420 000137 011764 JMP 18$ :GO TO 18$ IF ERROR 

fa . 011424 7S: 

180 SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

181 011424 012737 177776 001414 MOV #-2 ,RMWCO FORMAT PARTIAL SECTOR 

182 011432 012737 000063 001412 MOV #WH'GO,RMCS10 sWRITE HEADER AND DATA 

183 011440 012702 001556 MOV PUT INK+3,R2 > EXTEND REGISTER INDEX TABLE 

184 011444 112722 000002 MOVB ARMWC , (R2) + 

185 011450 112722 000004 MOVB HRMBA, (R2) + 

186 011454 112722 000000 MOVB ARMCS1, (R2)+ 

i 011460 112722 000200 MOVB #200, (R2)+ 

189 011464 004737 036240 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
011470 000404 BR 8$ :GO TO 8$ IF NO ERROR 
011472 000240 NOP RETURN HERE IF ERROR 
011474 104000 EMT - ERROR # DEFINED BY PUT SUBROUTINE 
011476 000137 011764 JMP 18$ :GO TO 18% IF ERROR 

Lb 011502 8$: 

192 ;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

a 011502 004737 036602 JSR PC, TIMOUT ‘  s:WAIT FOR COMMAND TO COMPLETE 

195 011506 004737 035770 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
011512 000404 BR 9$ :GO TO 9$ IF NO ERROR 
011514 000240 NOP “RETURN HERE IF ERROR 
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SEQ 0077 


EMT sERROR @ pte BY GET SUBROUTINE 
JMP 18$ G0 TO 18$ IF ERROR 

9$: 

VERIFY RESULTS OF WRITE COMMAND 
JSR PC PRIERR 3;GO CHECK FOR PRIMARY ERRORS 
BR 10$ :GO TO 10$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

ton JMP 18$ 3;GO TO 18% IF ERROR 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 11$ ;GO TO 411% IF a ERROR 
NOP = RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 

ne JMP 18$ *GO TO 18$ IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 12$ ;GO TO 12$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 18% ;GO TO 18% IF ERROR 

12$: 

;READ HEADER AND DATA FOR SECTOR Rar WRITTEN 
MOV #-258., co + 256 WORDS (2°S COMP) 
MOV #RH'!GO, RMCS10 “READ HEADER & DATA COMMAND 
MOV #BUF TWO, RMBAO : CHANGE BUS ADDRESS 
JSR PC ,PUT 3;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 13$ :GO TO 13$ IF NO ERROR 
NOP - *RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY PUT SUBROUTINE 
JMP 18$ :GO TO 18% IF ERROR 

13$: 

s;WAIT FOR READ TO ee AND GET STATUS 

JSR PC, TIMOUT :WAIT FOR READ TO COMPLETE 

JSR PC GET 3;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 14$ :GO TO 14$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
JMP 18$ :GO TO 18$ IF ERROR 

14$: 

: VERIFY THE RESULTS OF ge OPERATION 
JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 15$ :GO TO 15$ IF NO ERROR 
NOP s;RETURN HERE IF ERROR 
EMT sERROR #4 DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 

156 JMP 18$ :GO TO 18% IF ERROR 
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001226 


001446 


001412 


C01174 
001176 


JSR PC .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 16$ :GO TO 16$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEF INED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
sie JMP 18$ -GO TO 18$ IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 17$ :GO TO 17$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 18$ :GO TO 18$ IF ERROR 
17$: 
:VERIFY DATA 
JSR PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
.WORD BUFONE :STARTING ADDRESS OF WRITE BUFFER 
“WORD BUF TWO -STARTING ADDRESS OF READ BUFFER 
BR 18$ -GO TO 18% IF NO ERROR 
NOP “RETURN HERE IF ERROR 
188 EMT :ERROR # DEFINED BY CMPBUF SUBROUTINE 
fA RK KEEKEEKKEKE KEKE KKKKKKKKKKKKKKK 
“STEST 4 FORMAT CHECK ZEROS 
FERRER KEKE EEK AKER KEEKKEKEEKEKKKKKKKKE 
TST: 


sSCOPE CALL 
¢ START OF TEST 

s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


SCOPE 
NOP 


MOV ASTACK, SP 
MOV $BASE ,RO 

MOV TSTQUE ,R1 
MOV 44, $TESIN 


3 SETUP — FOR GENERATING DATA BUFFER 


: VERIFY 


1$: 


2$: 


7 PREPARE oC FOR DATA TRANSFER 
J 


#0,RMDCO : CYLINDER = 0 
MOV #0 ,RMDAO ; = 0, SECTOR = 0 
MOV #FMT16,RMOFO © FORMAT 
MOV 4-258. ,RMWCO ze 6 WORDS (2°S COMP) 
MOV #BUFONE,RMBAO ;DATA BUFFER ADDRESS 
MOV AWH ,RMCS10 :WRITE HEADER AND DATA 
THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT >CALL BAD SECTOR MODULE 

:GO TO 1$ IF NO ERROR 

SCTMSG . TYPE BAD SECTOR MESSAGE 
EMT , ¢ ;ERROR # DEFINED BY BADSCT SUBROUTINE 
JMP 18$ ;GO TO 18$ IF ERROR 


MOV AZEROS , STMPO ;USE ALL ZEROS DATA PATTERN 
MOV #1 ,$TMP1 
JSR PC, GENBUF ;GO GENERATE DATA BUFFER 


PC, TSTPRP sPREPARE DEVICE FOR TEST 


SEQ 


0075 


rr REA nen see ~ 


— 
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FORMAT CHECK ZEROS SEQ 007% 


Ol2122 154130 «WORD 1541730 ; TASK DESCRIPTOR AS FCLLOWS: 

>SELECT DEVICE & VERIFY DEVICE AVAILABLE 

:CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
SVERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SkI'' OR ‘PIP’ IS SET 

: VERIFY _RECAL IBRATION 


012124 BR 3$ -GO TO 3$ IF NO ERROR 
012126 000240 NOP RETURN HERE IF ERROR 
012130 164000 EMT ERROR # ger sep BY TSTPRP SUBROUTINE 
012132 000137 012554 (SMP 18$ 3GO TO 18$ IF ERROR 

$i 012136 3$: 

253 :SETUP PARAMETERS AND EXECUTE SEEK 70 GET DRIVE ON CYLINDER 

254 012136 012737 000005 001412 MOV #SEEK!GO,RMCS10- ; CHANGE COMMAND TO SEEK 

255 012144 012702 001553 MOV #PUTINX,R2 “WRITE REGISTER INDEX TABLE 

256 012150 112722 000006 “OVB #RMDA, (R2) + 

257 012154 112722 000034 MOVB #RMDC, (R2)+ 

258 €12160 112722 000032 MOVB #RMOF , (R2)+ 

259 012164 112722 000000 MOVB ARMCS1, (R2)+ 

260 012170 112722 000200 MOVB #200, (R2)+ 

262 012174 004737 036240 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
012200 600404 BR 4$ :GO TO 4$ IF NO ERROR 
012202 000240 NOP “RETURN HERE IF ERROR 
012204 104000 EMT [ERROR # DEFINED BY PUT SUBROUTINE 
012206 000137 012554 JMP 18$ :GO TO 18$ IF ERROR 

$5 012212 4$: 

265 :SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 

266 012212 004737 035704 JSR PC.GETSTS :SETUP FOR STATUS 

267 012216 004737 036602 JSR PC, TIMOUT z:wAIT FOR SEEK TO COMPLETE 

$68 012222 5$: 

270 :GO READ SEEK STATUS 

271 012222 004737 0357706 JSR PC.GET :G0 READ REGISTER(S) WITH GET SUBROUT I NE 
012226 000404 BR 6$ :GO TO 6$ IF NO ERROR 
012230 000240 NOP ae Tunes HERE IF ERROR | 
012232 104000 EMT ERROR # DEFINED BY GET SUBROUTINE 
012234 000137 012554 JMP 18$ -GO TO 18$ IF ERROR 

sre 012240 6$: 

276 :VERIFY THE RESULTS OF THE SEEK COMMAND 

275 012240 004737 044104 JSR PC, SEKSTS 7GO VERIFY RESULTS OF SEEK OPERATION 
012244 000405 BR 7$ :GO TO 7$ IF NO ERROR 
012246 000240 NOP - RETURN HERE IF ERROR 
012250 104000 EMT -ERROR # DEFINED BY SEKSTS SUBROUTINE 
012252 004736 JSR PC .a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
012254 000137 012554 JmMeP 18$ :GO TO 18$ IF ERROR 

$76 012260 7$: : 

278 ;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

279 012260 012737 000063 001412 MOV #dH'GO,RMCS10 ;WRITE HEADER AND DATA 

280 0122 012702 001556 MOV #PUT INK+3,R2 EXTEND REGISTER INDEX TABLE 

281 012272 112722 000002 MOVB #RMWC, (R2)+ 

282 012276 112722 000004 MOVB #RMBA, (R2) + 
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MOVB #RMCS1,(R2)+ 

MOVB #200, (R2)+ 

JSR PC ,PuT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 8$ :GO TO 8$ IF NO ERROR 

NOP RETURN HERE IF ERROR 


EMT 3 sERROR # DEFINED BY PUT SUBROUTINE 


- JMP 18$ -GO TO 18$ IF ERROR 
:WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
JSR PC, TIMOUT :WAIT FOR COMMAND TO COMPLETE 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 9$ -GO TO 9$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
a JMP 18$ :GO TO 18$ IF ERROR 
:VERIFY RESULTS OF WRITE COMMAND 
JSR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 10$ :GO TO 10$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC. a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
si IMP 18$ :GO TO 18$ IF ERROR 
JSR PC DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
BR 11$ -GO TO 11$ IF NO ERROR 
NOP “RETURN HERE IF ERR 
EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC. a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
ois JMP 18$ :GO TO 18$ IF ERROR 
JSR PC. SECERR :GO CHECK FOR SECONDARY ERRORS 
BR - 12 7 :GO TO 12$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
‘JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
a JMP 18$ -GO TO 18% IF ERROR 


sWRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV #WCH'GO,RMCS1O0 ;WRITE CHECK COMMAND 


JSR PC PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 13$ ;GO TO 13% IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ZERPROR # DEFINED BY PUT SUBROUT INE 
JMP 18$ :GO TO 18$ IF ERROR 
13$: 
sWAIT FOR WRITE “oye TO eal AND GET STATUS 
JSR PC, TIMOUT WAIT FOR READ TQ COMPLETE 


JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 


SEQ 0080 
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001100 


033152 
063346 
013514 
065000 


001226 


001446 


001412 


001174 
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BR 14$ + G0 TO 14$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 


JMP 18$ :GO TO 18% IF ERROR 
14$: 
sVERIFY THE RESULTS OF etre CHECK OPERATION 
JSR PC,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
BR 15$ :GO TO 15$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT 7ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
+h JMP 18$ ;GO TO 18% IF ERROR 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DA/A TRANSFER 
BR 16$ | ;GO TO 16$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
‘ke JMP 18$ :GO TO 18% IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 17$ =GO TO 17$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY SECERR SUBROUTINE 
a JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
18$: 
be LAS AARARRAASASLASASRESALERSESAESASLESESESSSSLASSALOCLALSCALAESCSLaESELASLS SES SS 
Z*TEST 5 FORMAT CHECK ZEROS W/ WCE ERROR 
rt -ReSAAARRAASAAASASLESLALZAALASALASESLESLLAOSLSSLSAZAESLSAESALAASLA SEAS ALSL Ls 
Ls a 
SCOPE sSCOPE CALL 
NOP :START OF TEST 
MOV ASTACK,SP INITIALIZE STACK POINTER 
MOV SBASE ,RO RO = UNIBUS ADDRESS ; 
MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED . 
MOV AS STESITN >: SET TEST NUMBER IN APT MAIL BOX 
7SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV #0 ,RMDCO ‘CY LINDER = 0 
MOV #0,RMDAO ‘TRACK = ol SECTOR = 0 
MOV #FMT16,RMOFO =16 BIT FORMAT 
MOV #-258. ,RMWCO :2 + 256 WORDS (2°S COMP) 
MOV ABUFONE,RMBAO # ;DATA BUFFER ADDRESS 
MOV #WH,RMCS10 ;WRITE HEADER AND DATA 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC,BADSCT . ;CALL BAD SECTOR MODULE 
BR 1$ ;GO TO 1$ IF NO ERROR 
TYPE ,5SCTMSG : TYPE BAD SECTOR MESSAGE 
EMT - ERROR # DEFINED BY BADSCT SUBROUTINE 
1 JMP 20$ -GO TO 20$ IF ERROR 
MOV #ZEROS,STMPO ;USE ALL ONES DATA PATTERN 


OL LL LT SCC TS LTC et I Ct te et tine ts tt tt cl ts 


SEQ 0087 


; ed RMO5/3/2 FCINL TST 2 


RMAT 


338 012674 


339 
340 


012714 


012726 


012726 


013002 
013006 
013012 


364 013012 


569 


Q 
013030 


013030 


0 
013050 


012737 
004737 


004737 
154130 


000 
000137 


004737 
004737 


004737 
6001 37 


004737 


000137 


000001 
C35104 


032176 


000200 
036240 


013514 


035704 


036602, 


035770 


013514 


044104 


013514 


me 
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CHECK ZEROS W/ WCE ERROR 


001176 


001412 





MOV 


#1 ,$TMP1 


- JSR PC, GENBUF 3GO GENERATE DATA BUFFER 
s;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
.» WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER @ SE!IECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
=PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘’SKI'’ OR 'PIP’’ IS SET 
: VERIFY RECAL IBRATION 
BR 3$ ;GO TO 3$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED 8Y TSTPRP SURROUTINE 
35 JMP 20$ :G0 TO 20$ IF ERROR 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE -- CYLINDER 
MOV HMSEEK!GO,RMCS10 ; CHANGE COMMAND 10 SEEK 
MOV AMPUTINX, R2 “WRITE REGISTER INDEX TABLE 
MOVB #RMDA, (R2)+ 
MOVB ARMDC, (R2)+ 
MOVB #RMOF , (R2) + 
MOVB ARMCS1,(R2)+ 
MOVB #200, (R2)+ 
JSR PC,PuUT ;G0 wis REGISTER(S) WITH PUT SUBROUTINE 
BR 4$ :G9 TO 4$ IF NO ERROR 
NOP <RE TURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PUT SUBROUTINE 
- JMP 20$ GO TO 20$ IF ERROR 
;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC,GETSTS ;SETUP FOR STATUS 
- JSR PC,TIMOUT “WAIT FOR SEEK TO COMPLETE 
;GO READ SEEK STATUS 
JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY GET SUBROUTINE 
a JMP 20$ :GO TO 20$ IF ERROR 
:VERIFY THE RESULTS OF THE SEEK COMMAND 
JSR PC,SEKSTS ;GO VERIFY RESULTS OF SEEK OPERATION 
BR 7$ :GO T0 7$ IF NO ERROR 
NOP *RE TURN HERE IF ERROR 
EMT “ERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC ,a(SP)+ :GQ BACK FOR MORE ERROR CHECKS 
JMP 20$ :GO TO 20% IF ERROR 


SEQ 008- 


© ZRMNBO RMO5/43/2 FCTINL TST 2 
T5 FORMAT CHECK ZEROS W/ WCE ERROR 


390 013162 
391 


<> 
RL 


EEL AAS 


MONINY 2) Raton omen 
mM 


LAAW 
MIN 
N— 
MO 


397 013222 
400 013226 
401 


402 013234 
013240 


ee ee 


000137 


004737 


005137 


012737 


004737 
000404 


000063 
001556 
000002 
000004 
000000 
000200 
036240 


013514 


036602 


035770 


013514 


036766 


013514 
051502 


013514 
037620 


013514 


162362 


000053 
036240 


F 7 
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001412 


001412 


:SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
MOV AWH'GO,RMCS1O ;WRITE HEADER AND DATA 
MOV #PUT INK+3,R2 sEXTEND REGISTER INDEX TABLE 


MOVB #RMWC, (RO) + 
MOVB ARMBA, (R2) + 
MOVB #RMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC ,PUT 3GO WRITE pet Eh WITH PUT SUBROUTINE 
BR 8$ :GO TO 8$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY PUT SUBROUTINE 

- JMP 20$ :GO TO 20$ IF ERROR 

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
JSR PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 9$ ;GO TO 9$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY GET SUBROUTINE 

“a JMP 20% ;GO TO 20$ IF ERROR 

: VERIFY RESULTS OF WRITE COMMAND 
JSR PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 10$ :GO TO 10$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ZERROR #4 DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

oa JMP 20$ :GO TO 20$ IF ERROR 

JSR PC ,.DTASTS 3;GO VERIFY RESULTS OF DATA TRANSFER 

BR 11$ GO TO 11$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

+8 JMP 20$ GO TO 20$ IF ERROR 
JSR PC, SECERR 3;GO CHECK FOR SECONDARY ERRORS 
BR 12$ :;GO TO 12$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY SECERR- SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
JMP 20$ -GO TO 20$ IF ERROR 

12$: 

s;ALTER DATA BUFFER 
COM BUF TWO-2 >; COMPLEMENT LAST DATA WORD 


sSETUP AND WRITE CHECK HEADER AND DATA COMMAND 
MOV AWCH!GO,RMCS10 ;WRITE CHECK COMMAND 


JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 13$ ;GO fO 13$ IF NO ERROR 


LS ST LL i At aT: ee Cath ti ttt nati att 
- - _ o —-=- ee oo ee ee re ewan 


SEQ 0084 


LLL ALE LL LE LCL Ne ma cm ae 


mow - 


F acta RMOS/3/¢ FCTINL TST 2 
FORMAT 


013262 


513559 


013252 
013256 


wad ad 
LAw 
i 
So Ns 


OSoooo0o0oO oo 
weed eed ed eet od 
FERRER 

; Cone N= 
AMO 


SN A TS TT 


0600240 
104000 
000137 


004737 
004737 


000137 


032737 
001023 


004737 


000137 
013737 


013514 


036602 
035770 


013514 


036766 


013514 


040000 


051502 


013514 
001346 


040000 
0015346 


102362 
001342 
000002 


000022 
000200 
035770 


013514 
001 360 


6 7 
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"001346 


001140 
001140 
001142 


001134 
001136 
001136 


001524 
007525 


001142 


13$: 


sRETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 20$ IF ERROR 


;WAIT wa CHECK COMMAND TO COMPLETE AND READ STATUS 


14$: 


NOP 
EMT 
JMP 20$ 
PC, TIMOUT 
JSR PC GET 
BR 143 
NOP 
EMT 
JMP 20$ 
;CHECK FOR PRIMARY ERRORS 
JSR PC,PRIERR 
BR 5$ 
NOP 
EMT 
JSR PC,a(SP)+ 
J 20$ 


15$: 


sWAIT FOR COMMMAND TO COMPLETE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 14$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


:GO TO 20$ IF ERROR 


‘= CHECK FOR PRIMARY ERRORS 
O TO 15$ IF NO ERROR 
‘RETURN HERE IF ERROR 


“ERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 20$ IF ERROR 


;MAKE oo THE WRITE CHECK ERROR WAS DETECTED 


16$: 


17$: 
7 VERIFY 


>GET WCE DATA AND VERIFY IT IS OK 
MOVE 


18$: 


AWCE ,RMCS21 
7$ 


BNE 
JSR PC,DTASTS 
16$% 


JSR PC,a(SP)+ 
20$ 


RMCS2I , $GDDAT 
BIS #AWCE , $GDDAT 
MOV Saati 


BR 20$ 


alr CHECK ERROR SET?? 


:GO VERIFY RESULTS OF ” aati TRANSFER 
:GO TO 16$ IF NO ERROR 
sRETURN HERE IF ERROR 


ERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

:GO TO 20$ IF ERROR 

;LOAD EXPECTED STATUS 


;LOAD RECEIVED STATUS 


THE ADDRESS OF THE WRITE CHECK ERROR 


MOV #BUF 
MOV RMBAI , SBDADR 
SUB #2, $BDADR 


ARMDB , GET INX 


MOVB #200, GETINX+1 
JSR PC,GET 

BR 18$ 

NOP 

EMT 


20$ 
MOV — ~-RMDBI,$BDDAT 


TWO-2,$GDADR;LOAD EXPECTED ADDRESS 


sLOAD RECEIVED ADDRESS 
;DECREMENT RECEIVED ADDRESS 


;SETUP FOR READING RMDB 


:GO oa REGISTER(S) WITH GET SUBROUTINE 
:GO TO 18$ IF NO ERROR 
:RETURN HERE IF ERROR 
ion tn # DEFINEBR BY GET SUBROUTINE 
O TO 20$ IF ERROR 
‘OAD RECEIVED DATA WORD 


SEQ UUS4 


H 7 
7 Saas es ¢ FCTNL TST 2. MACRO VO04.00 4-APR-81 11:43:33 PAGE 13-14 


T CHECK ZEROS W/ WCE ERROR 


15 igeieicmamemana Se see 
: 
' 
: 
' 


439 013454 913737 102362 001140 MOV BUFTWO-2,$GDDAT ;LOAD EXPECTED DATA wORD 
440 013462 005137 G01140 COM $GDDAT 
441 0134 023737 001134 001136 CMP $GDADR,$BDADR ;IS ADDRESS OK?? 
442 013474 001402 BEQ 19$ sVES!: 
4435 913476 104340 EMT 340 
444 013500 0405 BR 20$ 
445 013502 023737 001140 001142 198: CMP $GDDAT,.SBDDAT ;1S DATA WORD OK?? 
446 013510 001401 BEQ 20$ | sVESi ! 
44/7 0135512 104341 EMT 341 
rey. 013514 20$: 
4 
450 SIRE REE EEE EERE REE ERR ER EEE REE 
:*TEST 6 FORMAT ONES 
FO TI I REE EERE REE REE EEE EEE RRO E RO REO 
013514 1ST6: 
013514 000004 SCOPE sSCOPE CALL 
013516 000240 NOP :START OF TEST 
013526 012706 001100 MOV ASTACK,SP ; INITIALIZE STACK POINTER 
013524 013700 001276 MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
013530 0135701 001466 Hes MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
651 013534 012737 000006 001226 MOV #6,$TESTN :eSET TEST NUMBER IN APT MAIL BOX 
452 sSETUP PARAMETERS FOR GENERATING DATA BUFFER 
453 013542 012737 000000 001446 MOV #0,RMDCO :CYLINDER = 0 
454 013550 012737 000000 001420 MOV #0 ,RMDAO TRACK = 0, SECTOR = 0 
455 013556 012737 010000 001444 MOV #FMT 16, RMOFO 716 BIT FORMAT 
456 013564 012737 177376 001414 MOV #-258. ,RMWCO :2 + 256 WORDS (2°S COMP) 
457 0135572 012737 101360 001416 MOV #BUFONE,RMBAO ;DATA BUFFER ADDRESS 
ret 013600 012737 000062 001412 MOV AWH.RMCS10 ;WRITE HEADER AND DATA 
460 sVERIFY THAT SECTOR IS NOT BAD 
013606 004737 033152 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
013612 000405 1$ :GO TO 1$ IF NO ERROR 
013614 104401 063346 TYPE SCTMSG TYPE BAD SECTOR MESSAGE 
013620 104000 , EMT sERROR # DEFINED BY BADSCT SUBROUTINE 
013622 000137 014334 JMP 18$ :GO TO 18% IF ERROR 
461 013626 1$: 
462 013626 012737 064736 001174 MOV #ONES , STMPO USE ALL ONES DATA PATTERN 
463 013634 012737 000001 001176 MOV #1 ,$1MP1 
464 013642 004737 035104 JSR PC, GENBUF :GO GENERATE DATA BUFFER 
ize 015646 2$: 
467 sPREPARE DEVICE FOR DATA TRANSFER 
468 013646 004737 032176 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
013652 154130 -WORD 154150 s TASK DESCRIPTOR AS FOLLOWS: 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
> VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘’SKI'* OR 'PIP’’ IS SET 
bg Ay RECAL IBRAT ION 
013654 000404 BR 3$ TO 3$ IF NO Porn 
013656 000240 NOP ‘RETURN HERE IF ERR 
013660 104000 EMT sERROR # DEFINED BY. TSTPRP SUBROUT I NE 
013662 000137 014334 JMPF 18$ :GO TO 18% IF ERROR 
“69 013666 3$: 


ee ee =~ 


CZ2RMNBO RMO5/3/2 FCTNL 
6 FORMAT ONE 


478 
479 
480 


013720 


013736 
013742 


013742 
013746 
013752 


013752 


013770 


013770 
013774 


ta | “3 4 2 O0 
el ek ed ed wed wd 


004737 
004737 


004737 
C00404 


000137 


004737 


000137 


004737 


1ST 2 


000005 
001553 
000034 
000032 
000000 
000200 
036240 


014334 


035704 
036602 


035770 
014334 


044104 


014334 


000063 
6 


000200 
036240 


014334 


036602 


LL EE Se eS ee 


ee 
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001472 


001412 


> SETUP — se AND EXECUTE SEEK TO GET DRIVE os, eS teat 


4$: 


ASEEK!GO,RMCS1C ; CHANGE COMMAND T 


MPUTINX, “WRITE REGISTER INDEX TABLE 
#RMDA, (R2)+ 
#RMDC, (R2)+ 
#RMOF , (R2) + 
#RMCS1, (R2)+ 
#200, (R2)+ 
PC ,PUuT 3G0 mits pig iy WITH PUT SUBROUTINE 
4$ 3;GO TO 4$ IF NO ERROR 
= RETURN HERE IF ERROR 
sERROR # DEFINED A PUT SUBROUTINE 
18$ 3;GO TO 18% JF ERR 


> SETUP a ee STATUS AND THEN WAIT FOR SEEK TO COMPLETE 


JSR 
5$: 


PC,GETSTS sSETUP FOR STATUS 
PC, TIMOUT ;WAIT FOR SEEK TO COMPLETE 


:GO READ SEEK STATUS 
JSR 


BR 

NOP 

EMT 

JMP 
6$: 


:VERIFY THE 
R 


7$: 


PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
6$ :GO TO 6$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY GET an ae 


18$ :GO TO 18% IF ERROR 


RESULTS OF THE SEEK COMMAND 


PC,SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
7$ :GO TO 7$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR #4 DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


PC ,a(SP)+ 
18$ :GO TO 18% IF ERROR 


;SETUP AND ene (CS Ap ALB ne AND DATA COMMAND 


8$: 
WAIT FOR WRITE 
JSR 


sWRITE HEADER AND DATA 


#PUTINK+3,R2 sEXTEND REGISTER INDEX TABLE 


#RMWC , (R2)+ 
#RMBA. (R2)+ 
#RMCS1,(R2)+ 
#200, (R2)+ 
PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
8$ :GO TO 8$ IF NO ERROR 
sRETURN HERE IF ERROR 
;ERROR #4 DEFINED BY PUT SUBROUTINE 
18$ :GO TO 18% IF ERROR 


COMMAND TO COMPLETE AND READ STATUS 
PC,TIMOUT | ;WAIT FOR COMMAND TO COMPLETE - 


—_—_—-- ~~ ——-- 
— —— LE A AO i ET a kt 


SEQ GUBE 


ee 
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Té FORMAT ONES 
4064 004737 035770 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
014070 000404 BR 9$ :GO TO 9$ IF NO ERROR 
014072 000240 NOP ) “RETURN HERE IF ERROR 
014074 104000 EMT :ERROR # get ned Bs GET SUBROUTINE 
014076 000137 014334 JMP 18$ 3G0 TO 18% IF E 
014102 9$: 
VERIFY RESULTS CF WRITE COMMAND 
014102 004737 036766 JSR re’, PRIERR ;G0 ta" to FOR PRIMARY FRRORS 
014106 0040 BR 103 3GO TO 10$ IF NO ERROR 
014110 000240 NOP “RETURN HERE IF ERROR 
014112 104 EMT “ERROR # DEFINED BY PRIERR SUBROUT I NE 
14114 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 

Mes bt 000137 014334 ‘a JMP 18$ :GO TO 18%. IF ERROR 
014122 004737 051592 JSR PC,DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
014126 000405 BR 11$ ;GO TO 11$ IF NO ERROR 
014130 000240 NOP “RETURN HERE IF ERROR 
014132 104000 EMT ERROR # DEFINED BY DTASTS SUBROUTINE 
C14134 004736 JSR PC ,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
Rtaze 000137 014334 i JMP 18$ -GO TO 18% IF ERROR 
014142 004737 037620 JSR PC,SECERR ;GO CHECK FOR SECONDARY ERRORS 
014146 000405 BR 12$ :GO TO 12% IF NO ERROR 
014150 000240 NOP ;RETURN HERE IF ERROR 
014152 104000 EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 
014154 004736 JSR PC,a(SP) + 3GO BACK FOR MORE ERROR CHECKS 
014156 000137 014234 JMP 18$ :GO TO 18$ iF ERROR 

rh 014162 12$: 

521 ;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

522 014162 012737 000073 001412 MOV #RH!GO,RMCS10 ;READ HEADER & DATA COMMAND 

a2 014170 012737 102364 001416 MOV UF TWO,RMBAO ;CHANGE BUS ADDRESS 

525 014176 004737 0362490 JSR PC ,PUT 3;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
014202 000404 BR 13$ :GO TO 13% IF NO ERROR . 
014204 000240 NOP *RE TURN HERE IF ERROR 
014206 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
014210 000137 014334 JMP - 18$ :GO TO 18% IF ERROR 

268 014214 13$: 

528 WAIT FOR READ TO COMPLETE AND GET STATUS 

267 014214 004737 036602 JSR PC, TIMOUT ;WAIT FOR READ TO COMPLETE 

531 014220 004737 035770 JSR PC ,GET :;GG READ REGISTER(S) WITH GET SUBROUTINE 
014224 000404 BR 14$ :GO TO 14$ IF NO ERROR 
014226 000240 NOP sRETURN HERE IF ERROR 
014230 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
014232 000137 014334 JMP 18% :GO TO 18% IF ERROR 

oz 014236 14$: 

534 sVERIFY THE RESULTS OF ara OPERATION 

535 014236 004737 036766 JSR PC,PRIERR :;GO CHECK FOR PRIMARY ERRORS 
014242 000405 BR 15$ -GO TO 15$ IF NO ERROR 
014244 000240 NOP | ;RETURN HERE IF ERROR 
014246 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
014250 004736 JSR PC,@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 


li 


014420 


014426 


CZRMNBO RMOS/3/2 FCTAL 
T6 FORMAT ONES 


000137 
004737 


004736 
000137 


004737 


012737 


012737 


012737 
0127357 
004737 


TST 2 


014334 
051502 


014334 
037620 


014334 


035342 


001100 


000062 


033152 
063346 
015124 
064736 


000001 
035104 


- WZ 
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001226 


001446 


001412 


15$: 


16$: 


17$: 
: VERIFY 


18$: 


CT RARE KKK EEE ERE ERE EKEKEEEKKEKKKKKEE 


JMP 


18$ 
PC ,DTASTS 
16$ 
PC ,a(SP)+ 
18$ 


PC,SECERR 
17$ 


PC ,a(SP)+ 
18$ 


PC, CMPBUF 
BUF ONE 
BUF TWO 
18$ 


:GO TO 18% IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 16$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO TO 18$ IF ERROR 


:GO ones FOR SECONDARY ERRORS 
;GO TO 17$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 18$ IF ERROR 


:GO COMPARE WRITE, READ DATA BUFFERS 
: STARTING ADDRESS OF WRITE BUFFER 

: STARTING ADDRESS OF READ BUFFER 

:GO TO 18$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY CMPBUF SUBROUTINE 


s*TEST 7 FORMAT CHECK ONES 
FARRER REE EEE EEE EERE KE 

1817: 

SCOPE : SCOPE CALL 

NOP :START OF TEST 

MOV ASTACK,SP : INITIALIZE STACK POINTER 

MOV $BASE ,RO ;RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 

MOV #7 , STESTN :;SET TEST NUMBER IN APT MAIL BOX 
; SETUP PARAMETERS FOR GENERATING DATA BUFFER 

MOV #0,.RMDCO -CYLINDER = 0 

MOV #0 ,RMDAO TRACK = 0, SECTOR = 0 

MOV PFMT16. RMOF 0 316 BIT FORMAT 

MOV #~-258. ,RMWCO s2 + 256 WORDS (2°S COMP) 

MOV ABUFONE,RMBAO ;DATA BUFFER. ADDRESS 

MOV AWH ,RMCS10 “WRITE HEADER AND DATA 
;VERIFY THAT SECTOR IS NOT BAD 

JSR PC ,BADSCT >CALL BAD SECTOR MODULE 

1$ :GO TO 1$ IF NO ERROR 

TYPE SCTMSG ;TYPE BAD SECTOR MESSAGE 

EMT sERROR # DEFINED BY BADSCT SUBROUTINE 
7 JMP 18$ :GO TO 18% IF ERROR 

MOV HONES , S$TMPO sUSE ALL ONES DATA PATTERN 

MOV 4#1,$TMP1 
3 JSR PC ,GENBUF ;GO GENERATE DATA BUFFER 


SEG OU85 


eee 


CERANGO yk a FCTNL TST 2 
FORMAT CHECK ONES 


565 
564 


565 
566 


567 
568 014 


569 
ay 


590 
591 


592 
593 
594 


014466 
014472 


014474 


014502 
014506 


506 
014514 
614520 


014562 
014566 
014572 


014572 
014576 


014624 
014630 


014630 
014636 


004737 
154130 


112722 


004737 
000404 


004737 
004737 


004737 


032176 


015124 
000005 

3 
000200 
036240 
015124 


035704 
036602 


035770 
015124 


044104 


015124 


000063 
001556 


L _£ 
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001412 


001412 


;PREPARE DEVICE FOR DATA TRANSFER 
SR PC, TSTPRP 


3$: 
; SETUP a AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 


4S: 
; SETUP ea ee STATUS AND THEN WAIT FOR SEEK TO COMPLETE 


6$: 
: VERIFY 


7$: 


J 
. WORD 


BR 

NOP 
EMT 
JMP 


JSR 


BR 

NOP 
EMT 
JMP 


JSR 


THE RESULTS OF THE SEEK C 
PC,SEKSTS 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
s VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
AL RE CAL IBRAT ION 

3$ TO 3$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 18$ IF ERROR 


154130 


18$ 


oot tae RMCS10 ;CHANGE COMMAND TO SEEK 
;WRITE REGISTER INDEX TABLE 


SRPDA Che) 
ARMDC, (R2) + 
#RMOF , (R2) + 
#RMCS1, (R2)+ 
#200, (R2)+ 
PC ,PUT 3;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
4$ :GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
= ERROR # DEFINED BY PUT SUBROUTINE 
18$ :GO TO 18% IF ERROR 


PC,GETSTS :SETUP FOR STATUS 


:GO READ SEEK STATUS 
JSR 


PC, TIMOUT :WAIT FOR SEEK TO COMPLETE 
PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
6$ - O TO 6$ IF NO ERROR 


“ RETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 


18$ :GO TO 18$ IF ERROR 


OMMAND 

:GO VERIFY RESULTS OF SEEK OPERATION 
:GO TO 7$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS ° 


PC,a@(SP)+ 
18$ :GO TO 18$ IF ERROR 


>SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 


MOV 
MOV 


#WH!GO,RMCS10 
APUTINX+3,R2 


;WRITE HEADER AND DATA 
SEXTEND REGISTER INDEX TABLE 


SEQ 0089 


CC Ct ttt 


gue Oe es 


595 
96 


604 014700 
606 014704 





014710 
014712 
014714 
614716 
014722 


014722 


015002 


015026 


015026 


1 
1 
1 


004737 
04 


012737 
004737 


004737 


2 FCTNL TST 2 
T CHECK ONES 


000002 
600004 
000000 


000200 
036240 


015124 


036602 
035770 


015124 


036766 


015124 
051502 


015124 
037620 


015124 


000053 
036240 


015124 


036602 


001412 


8$: 


:WAIT FOR WRITE 
JSR 


9$: 
sVERIFY 


10$: 


11$: 


12$: 


JSR 


M 7 
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ARMWC, (R2) + 
#RMBA, (R2)+ 
#RMCS1, (R2)+ 
#200, (R2)+ 
PC ,PuT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
8$ ;GO TO 8$ IF NO ERROR 
* RETURN HERE IF ERROR 
;ERROR # DEFINED BY PUT SUBROUTINE 
183 :GO TO 18% IF ERROR 


COMMAND TO COMPLETE AND READ STATUS 


PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
9$ :GO TO 9$ IF NO ERROR 
;RETURN HERE IF ERROR 
;ERROR # DEFINED BY GET SUBROUTINE 
18% :GO TO 18$ IF ERROR 


OF WRITE COMMAND 
PC,PRIERR- :GO CHECK FOR PRIMARY ERRORS 

10$ :GO TO 10$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 18$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
NO ERROR 


PC, a(SP)+ 
18$ 
PC. DYASTS 
11$ 


sERROR # DEFINED BY DTASTS SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 
;GO TO 18$ IF ERROR 


‘= ag FOR SECONDARY ERRORS 

; 12$ IF NO ERROR 

‘RETURN HERE IF ERROR 

;ERROR # DEFINED BY SECERR SUBROUTINE 
PC,a(SP)+ >GO BACK FOR MORE ERROR CHECKS 

18$ ;GO TO 18$ IF ERROR 


PC,a(SP)+ 
18$ 


PC,SECERR ’ 
12$ 


;WRITE sng HEADER AND DATA FOR SECTOR JUST WRITTEN 


13$: 


;WAIT FOR WRITE 
JSR 





WRITE CHECK COMMAND 
+ G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
TO 1 NO ERROR 


AWCH!GO,RMCS10_ ; 


OR 
sERROR # DEFINED BY PUT SUBROUTINE 
;GO TO 18$ IF ERROR 


CHECK ie rE: AND GET STATUS 
PC, TIMOUT WAIT FOR READ TO COMPLETE 


ET Ee 


SEQ 0090 


CZRMNBO RMO5/3/2 FCINL TST 2 
| 17 FORMAT CHECK ONES 


— 
ners 


015032 
0 


ALY 


004736 


012737 


012737 


035770 
015124 


036766 


015124 
051502 


015124 
037620 


001100 
001276 
001466 
000010 


000062 


033152 
063346 
016062 
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001226 


001446 
001420 
001444 


001414 


001416 
001412 


14$: 


; VERIFY 


16$: 


17$: 
18$: 


JSR PC,GET 
B 14$ 


JMP 18$ 


JSR PC,a(SP)+ 
18$ 


JSR PC ,DTASTS 
16$ 


JSR PC,a(SP)+ 
18$ 


JSR PC,SECERR 
BR 17$ 


JSR PC,a(SP)+ 


+ GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 14$ IF NO ERROR 

“ RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

;GO TO 18% IF ERROR 


i RESULTS OF or CHECK OPERATION 
PC,PRIERR ;G0 


CHECK FOR PRIMARY ERRORS 
;GO TO 15$ IF NO ERROR 
;RETURN HERE IF ERROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 18$ IF ERROR 


;GO 5 ge RESULTS OF DATA TRANSFER 
:GO TO 16$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS | 
:GO TO 18$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 17$ IF NO ERROR 
;RETURN HERE IF ERROR 


:ERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


FREER AEKKEREREKKEEKEKEEEKEKEKKKKKKKKKKKKE 


“RTEST 10 


FORMAT CHECK ONES W/ WCE ERRORS 


FREER EER EKER KEK RAKE KKEKKEKEKEKEEKEKEK 


1$T10: 


MOV ASTACK, SP 
$BASE , RO 

MOV TSTQUE ,R1 

MOV #10, $TESTN 


sSCOPE CALL 
sSTART OF TEST 


s INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 
:(R1) = DEVICE BEING TESTED 


:;SET TEST NUMBER IN APT MAIL BOX 


:SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV #0 .,.RMDCO sty 


~ MOV #FMT16,RMOFO 
MOV #-258. ,RMWCO 
MOV A#BUF ONE , RMBAO 


; VERIFY 


MOV #0,,RMDAO 


MOV #WH ,RMCS10 


THAT SECTOR IS NOT BAD 
JSR 


PC ,BADSCT 
BR 1$ 
TYPE SCTMSG 
EMT 


JMP 20$ 


re ee 


LINDER = 0 
‘TRACK = vier SECTOR = 0 
:16 BIT FORMAT 


:2 + 256 WORDS (2'°S COMP) 
;DATA BUFFER ADDRESS 
;WRITE HEADER AND DATA 


;CALL BAD SECTOR MODULE 

;GO TO 1$ IF NO ERROR 

: TYPE BAD SECTOR MESSAGE 

;ERROR # DEFINED BY BADSCT SUBROUTINE 
:GO TO 20$ IF ERROR 


SEQ 0091 
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ie 


LT Ty tS 


10 FORMAT CHECK ONES W/ wCE ERRORS SEO 0092 
650 015236 1$: 
651 015236 012737 0647%6 001174 MOV #ONES .STMPO ;USE ALL ONES DATA PATTERN 
652 015264 012737 900001 001176 MOV #1 ,.$TMP1 
653 015252 004737 035104 JSR PC, GENBUF ;GO GENERATE DATA BUFFER 
654 015256 23: 
sPREPARE DEVICE FOR aera TRANSFER 
£57 015256 004737 032176 JSR PC,TSTP :PREPARE DEVICE FOR TEST 
015 154130 P 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
. VERIFY CONTROLLER CLEAR OPERATION 
= PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWL EDGE 
SRECALIBRATE IF ‘’SKI'' OR 'PIP’’ IS SET 
: VERIFY RECA IBRATION 
015264 0004 BR 3$ TO 3$ IF NO ERROR 
5 000240 NOP “RE TURN HERE IF ERROR 
015270 104 EMT sERROR # gta” BY TSTPRP SUBROUT INE 
615272 000137 016062 JMP 20$ :GO0 TO 20$ IF ERROR 
bro 015276 3$: 
660 _ gSETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
661 015276 012737 § 001412 MOV #SEEK!GO,RMC 7 CHANGE COMMAND TO SEEK 
662 015304 012702 001553 MOV #PUTIN i “WRITE REGISTER INDEX TABLE 
663 015310 112722 MOVB #RMDA, (R2) + 
6464 015314 112722 000034 MOVB #RMDC, (R2)+ 
665 015320 112722 000032 MOVB ,(R2)+ 
666 015324 112722 000000 MOVB #RMCS1,(R2)+ 
yor 015330 112722 000200 MOVB #200, (R2)+ 
669 015334 004737 036240 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
015340 0004 BR 4$ :GO TO 4$ IF NO ERROR 
015342 000240 NOP *RE TURN HERE IF ERROR 
015544 104000 EMT ; = ERROR # DEFINED BY PUT SUBROUTINE 
015346 000137 016062 JMP 20S :GO TO 20$ IF ERROR 
on 015352 : 4$: 
672 ;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
673 015352 004737 035704 JSR ~GETSTS -  sSETUP FOR STATUS 
674 015356 004737 036602 JSR PC, TIMOUT ;WAIT FOR SEEK TO COMPLETE 
of? 015362 5$: 
677 :GO READ SEEK STATUS 
678 015362 004737 035770 JSR PC GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
015366 0004 BR :GO TO 6$ IF NO ERROR 
015370 000240 NOP ;RETURN HERE IF ERROR 
015372 104 EMT sERROR # DEFINED BY GET SUBROUTINE 
015374 000137 016062 JMP 20$ :GO TO 20$ IF ERROR 
pee 015400 6$: 
681 . iVERIFY THE RESULTS OF THE SEEK COMMAND 
682 015400 004737 044104 JSR ~SseKSTS :GO VERIFY ag gt OF SEEK OPERATION 
015404 000405 BR :GO TO 7$ IF NO ERROR 
015406 000240 NOP ;RETURN HERE IF ERROR 
015410 104000 EMT “ERROR # DEFINED BY SEKSTS SUBROUTINE 
015412 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 


—- 


ee — —<- a 


ORMAT 


01 
694 015470 
695 
696 
697 615470 
698 
699 015474 
015500 


VAY) 
WWwrornn-— 


VVIVIMIMA MUMIA VI 
WIN 


rele tee Be Be ee ee ee ee ee ee ee eee ee eee ee ee 


~ 
ef 
~lelelelelelslelsialelele)sielelelelelele) 
MAMMA MMMM UII VI 


Nee 


0001 37 


005137 


012737 


5/3/2 FCINL TST 2 
CHECK ONES W/ WCE ERRORS 


076062 


000063 
001556 
000002 


000000 
000200 
036240 


016062 


036602 
035770 


016062 


036766 


016062 
051502 


016062 
037620 


016062 


102362 


000053 001412 


MACRO v04.00 


001412 


sWAIT FOR WRITE 
JSR 


JSR PC,GET 
BR 9$ 
NOP 
EMT 
JMP 20$ 
9$: 
: VERIFY RESULTS OF WRITE COMMAND 
JSR PC,PRIERR 
BR 10$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 20$ 
10$: 
JSR PC ,DTASTS 
BR 11$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 20$ 
71$: 
JSR PC,SECERR 
BR 12$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 20$ 
12$: 
;ALTER DATA BUFFER 
COM BUF TWO-2 


Cc 8 
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:GO0 TO 20$ IF ERROR 


WRITE HEADER AND DATA 
SEXTEND REGISTER INDEX TARLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 8$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 20$ IF ERROR 


yMP 208 

7$: 

:SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
MOV #WH!GO,RMCS10 
MOV #PUTINK+3,R2 
MOVB #RMWC, (R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB  #RMCS1.(R2)+ 
MOVB #290. (R2)+ 
JSR PC,PUT 
BR 8$ 
NOP 
EMT 
JMP 20$ 

8$: 


COMMAND TO COMPLETE AND READ STATUS 
PC, TIMOUT 


:WAIT FOR COMMAND TO COMPLETE 


;GO READ eo gy WITH GET SUBROUTINE 
:GO TO 9$ IF NO ERROR 
;RETURN HERE iF ERROR 


;ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 20$ IF ERROR 


‘= rte FOR PRIMARY ERRORS 
O 10$ IF NO ERROR 
RETURN HERE IF ERROR 
sERROR # DEFINED BY PRIERR SUBROUTINE 
oD BACK FOR MORE ERROR CHECKS 
GO TO 20$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
260 TO 11$ IF “ ERROR 


RE IF ERROR 

DEFINED BY DTASTS SUBROUTINE 
FOR MORE ERROR CHECKS 

$ IF ERROR 


ECK FOR SECONDARY ERRORS 
NO ERROR 


r Oo 


:GO C 
7G 


RET ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO TO 20$ IF ERROR 


; COMPLEMENT DATA WORD 


:SETUP AND WRITE CHECK HEADER AND DATA COMMAND 
MOV #WCH!GO,RMCS10 





sWRITE CHECK COMMAND 


SR nee 


SEQ 009% 


dD 8 
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tee 


10 CHECK ONES W/ WCE ERRORS SEQ 0094 

716 015604 004737 036240 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
015610 000404 BR 13$ :GO TO 13$ IF NO ERROR 
915612 000240 NOP :RETURN HERE IF ERROR 
015614 104000 EMT ZERROR # DEFINED BY PUT SUBROUTINE 
015616 000137 016062 JMP 20% :GO TO 20$ IF ERROR 

7 015622 . 13$: 

719 :WAIT FOR WRITE CHECK COMMAND TO COMPLE TE AND READ STATUS 

720 015622 004737 036602 JSR PC, TIMOUT ;WAIT FOR COMMMAND TO COMPLETE 

722 015626 004737 035770 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
015632 000404 BR 14$ :GO TO 14$ IF NO ERROR 
015634 000240 NOP :RETURN HERE IF ERROR 
015636 104000 EMT ;ERROR # DEFINED BY OGET SUBROUT INE 
015640 000137 016062 JMP 208 :GO TO 20$ IF ERROR 

Sz 015644 14$: 

725 :CHECK FOR PRIMARY ERRORS 

726 015644 (004737 036766 ISR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
615650 000405 BR 15$ :GO TO 15$ IF NO ERROR 
015652 24 NOP :RETURN HERE IF ERROR 
015654 104000 EMT zERROR # DEFINED BY PRIERR SUBROUTINE 
015656 004736 “JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
015660 ‘000137 016062 JMP 20$ :GO TO 20$ IF ERROR 

rer 015664 15$: 

729 :MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 

730 015664 032737 040000 001346 BIT #WCE.RMCS :1s WRITE CHECK ERROR SET?? 

731 015672 001022 BNE -YES! 

733 015674 004737 051502 JSR PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
015700 000405 BR 16$ :GO TO 16$ IF NO ERROR 
015702 000240 NOP “RETURN HERE IF ERROR 
015704 104000 EMT :ERROR # DEFINED BY DTASTS SUBROUTINE 
015706 004736 JSR PC, a(SP)+ :GO BACK FOR MCRE ERROR CHECKS 
015710 137 016062 JMP 20$ -GO TO 20$ IF ERROR 

734 015714 013737 001346 001140 16S: MOV RMCS21,$GDDAT  :LOAD EXPECTED STATUS 

735 015722 052737 040000 001140 BIS #WCE, $SGDDAT 

736 015730 013737 001346 001142 MOV RMCS2I1,$BDDAT  ;LOAD RECEIVED STATUS 

737 015736 104337 EMT 337 

ie 015740 17$: 

740 :VERIFY THE ADDRESS OF THE WRITE CHECK ERROR 

741 015740 012737 102362 001134 MOV #BUF TWO-2,$GDADR LOAD EXPECTED ADDRESS 

742 015746 013737 001342 001136 MOV RMBAI, $BDADR :LOAD RECEIVED ADDRESS 

r43 015754 162737 000002 001136 SUB #2, $BDADR :DECREMENT RECEIVED ADDRESS 

745 :GET WCE DATA AND VERIFY IT IS Ok 

746 015762 112737 000022 001524 MOVB  #PMDB.GETINX :SETUP FOR READING RMDB 

rer 015770 112737 000200 001525 MOVB #200,GETINX+1 

749 015776 004737 035770 JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
016002 000404 BR 18$ :GO TO 18$ IF NO ERROR 
016004 000240 NOP “RETURN HERE IF ERROR 
016006 104000 EMT : ERROR # DEFINED BY GET SUBROUTINE 
016010 000137 016062 JMP 20$ 0 20$ IF ERROR 

013737 001360 001142 18%: MOV RMDBI, $BDDAT SPOAD ORECEIVED DATA WORD 


SO ES ee Eee: 
aR ee ee eee Ste eee, 
’ 
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110 ORMAT CHECK ONES W/ WCE ERRORS SEQ 0095 
751 016022 013737 102362 001140 MOV «BUF TWO=2, SGDDAT ;LOAD EXPECTED DATA wORD 
752 016030 005137 601140 COM —- $GDDAT 
753 016034 023737 001134 001136 (MP -- $GDADR,$BDADR =; 1S._ ADDRESS 0K?? 
754 016042 001402 BEQ =s«19$ iYES!! 
755 016044 104340 EMT 340 
756 016046 000405 BR 208 
757 016050 19$: | 
758 016050 023737 001140 001142 (MP  $GDDAT,$B8DDAT ~~: IS_DATA WORD 0K?? 
759 016056 001401 BEQ =. 20 ZVES!! 
760 016060 104341 EMT 34 i 
761 016062 208: 
768 : FREER ERE EEE REET 
Z*TEST 11 FORMAT MULTIPLE SECTORS 
° SERRE KEE ER EEE EEE AREER 
016062 T$T11: 
016062 000004 SCOPE :SCOPE CALL 
016064 000240 NOP START OF TEST 
016066 012706 001100 MOV —s#STACK, SP INITIALIZE STACK POINTER 
616072 013700 001276 MOV —«- $BASE,RO RO = UNIBUS ADDRESS 
016076 013701 001466 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
vo, C112 012757 000011 001226 MOV #11, $TESTN :;SET TEST NUMBER IN APT MAIL 80x 
765 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
766 016110 012737 010000 001444 MOV #FMT16,RMOFO —-:16 BIT FORMAT 
767 016116 012737 000000 001446 MOV #0. RMDCO :CYLINDER = 0 
768 016124 012737 000000 001420 MOV #0. RMDAO : TRACK = 0, SECTOR = — 
769 016132 012737 176774 001414 MOV § #=258.%2,RMWCO WORD COUNT FOR 2 SECTORS (2°S COMP) 
770 016140 012737 101360 001416 MOV #BUFONE,RMBAQ DATA BUFFER ADDRESS 
771 016146 012737 000062 001412 MOV = #WHRMC$10 iWRITE HEADER AND DATA 
775 ;VERIFY THAT SECTOR IS NOT BAD | 
016154 004737 033152 JSR PC, BADSCT ;CALL BAD SECTOR MODULE 
016160 000405 BR 1$ :GO TO 1$ IF NO ERROR 
016162 104401 063346 TYPE —_, SCTMSG TYPE BAD SECTOR MESSAGE 
016166 104000 EMT ZERROR # DEFINED BY BADSCT SUBROUTINE 
vy, G1S120 000157 016656 a IMP «17 :G0 TO 17$ IF ERROR 
775 016174 012737 065000 001174 MOV §- #ZEROS.$TMPO —s; USE_ ALL ZEROS DATA PATTERN 
776 016202 012737 000001 001176 MOV ss #1, STMP 1 
77? 016210 004737 035104 JSR PC, GENBUF :GO GENERATE DATA BUFFER 
778 016214 2$: 
780 ;PREPARE DEVICE FOR DATA TRANSFER 
781 016214 004737 032176 JSR. «PC, TSTPRP ;PREPARE DEVICE FOR TEST 
016220 154130 WORD 154130 = TASK DESCRIPTOR AS FOLLOW 


>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF “‘SKI*’ OR 'PIP’’ IS SET 
fg RECAL IBRATION 

16222 000404 BR 3$ TO 3$ IF NO ERROR 

16224 000240 NOP “RETURN HERE IF ERROR 

16226 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 

16230 000137 016656 JMP 18$ :GO TO 18% IF ERROR 


eee cneereeineeneneentes 
- a eaten teen eh eeetenmenienmnines ou 
--- ee — 


tei ee ee 


MAT 
roe 016234 


016504 
794 016310 


797 016310 
798 016314 
799 016320 


802 016320 
016524 
016326 
0163350 
016332 

803 016536 


806 016336 


O09 O0 Od G0 00 Oo Oo 
— - — 
NOUS wr 


000137 


004737 
004737 


004737 


000137 


004737 
000405 


004737 


¢ RAND mae f FCTNL TST 2 
MULTIPLE SECTORS 


000005 001412 
001553 


000209 
036240 


016656 


035704 
036602 


035770 
016656 


044104 


016656 
aerecz 
000000 
000200 
036240 


016656 


036602 


001412 


3$: 
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7 SETuP =. AND EXECUTE SEEK TO GET DRIVE v0 | -YLINDER 
ASEEK!GO,RMCS10 ;CHANGE COMMAND T 


43: 


#PUTINX ,R2 
#RMDA , (R2) + 
#ARMDC, (R2)+ 


ARMOF , (R2)+ 
#RMCS1,(R2)+ 


#200, (R2)+ 
4$ 


18$ 


SEEK 
SWRITE REGISTER INDI X TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 4$ IF NO ERROR 
;RETURN HERE IF ERROR 


:ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 18% IF ERROR 


;SETUP FOR STATUS 


; SETUP aie READING aerate AND THEN WAIT FOR SEEK TO COMPLETE 


JSR 
5$: 


PC GET 
PC,TIMOUT 


:GO READ SEEK STATUS 
SR C,GET 


6$: 


: VERIFY yd RESULTS OF THE SEEK 
PC,SEKSTS 


7$: 


sSETUP AND EXECUTE ray aeeine 
MOV A#WH!GO, 


8$: 
sWAIT FOR WRITE 
JSR 


e 


18$ 


PC ,a(SP)+ 
18% 


HARMWC, (R2) + 
FRMBA, (R2)+ 
ARMCS1,(R2)+ 


#200, (R2)+ 
PC PUT: 
8$ 


18$ 


:WAIT FOR SEEK TO COMPLETE 


i‘: READ REGISTER(S) WITH GET SUBROUTINE 
O TO 6% IF NO ERROR 
‘RETURN HERE IF ERROR 


:ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 18% IF ERROR 


COMMAND 


:GO VERIFY age gh OF SEEK OPERATION 
:GO TO 7$ IF NO ERROR 
:RETURN HERE IF ERROR 


;ERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 18$ IF ERROR 


AND DATA COMMAND 


sWRITE HEADER AND DATA 
sEXTEND REGISTER INDEX TABLE 


i” WRITE REGISTER(S) WITH PUT SUBROUTINE 
O TO 8$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 18$ IF ERROR 


COMMAND TO Se aire READ STATUS 


PC,TIMOQUT 


FOR COMMAND TO COMPLETE 


= a RR ee mes a eee — _—e 
Tm sppsmnenenunes 
——----—— -_ a 
——— 


5 2RMNBO wal 2 ¢ FCTNL TST 2 


R22 


823 


FORMAT MULTIPLE SECTORS 


016524 
016530 


016530 
016536 


0001 37 
004737 


000137 
004737 


000137 


012737 
004737 


000137 


004737 
004737 


35770 


016656 


036766 


016656 
051502 


016656 
037620 


016656 


000053 
036240 


016656 


036602 
035770 


016656 


036766 
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001412 


JSR PC ,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 9$ :GO TO 9$ iF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
oe JMP 18$ :GO TO 18$ IF ERROR 
:VERIFY RESULTS OF WRITE COMMAND 
JSR PC,PRIERR ;GO CHECK FOR PRIMARY ERRORS 
BR 10$ :GO TO 10$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
108 JMP 18$ :GO TO 18% IF ERROR 
JSR PC ,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
BR 11$ ;GO TO 11$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DIASTS SUBROUTINE 
JSR PC,@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
_ JMP 18$ :GO TO 18% IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 12$ :GO TO 12$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
138 JMP 18$ :GO TO 18$ IF ERROR 


sWRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
MOV AWCH!GO,RMCS1O0 ;WRITE CHECK COMMAND 


PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 13$ :GO TO 13$ IF NO ERROR 


NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
JMP 18$ :GO TO 18% IF ERROR 


13$: 


;WAIT eo CHECK TO COMPLETE AND GET STATUS 


PC, TIMOUT ;WAIT FOR WRITE CHECK TO FINISH 
JSR PC,GET 3;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 14$ :GO TO 14$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
JMP 18$ -GO -TO 18$ IF ERROR 
14$: 
VERIFY THE RESULTS OF = CHECK OPERATION 
JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 15$ ;GO TO 15$ IF NO ERROR 
NOP * RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ 3;GO BACK FOR MGRE ERROR CHECKS 


H 8 
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MAT MULTIPLE SECTORS SEG GOSS 
016612 000137 016656 JMpP 18% :GO TO 18% IF ERROR 
B48 016616 15$: 
849 016616 004737 051502 JSR PC_DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
016622 000405 BR 16$ :GO TO 16$ IF NO ERROR 
016624 000240 NOP “RETURN HERE IF ERROR 
016626 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
016630 004736 JSR PC,a(SP)+ | :GO BACK FOR MORE ERROR CHECKS 
016632 000137 016656 - _ MP 18$ :GO TO 18$ IF ERROR 
850 016636 16$: 
851 016636 004737 037620 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
016642 000405 BR 17$ :GO TO 17$ IF NO ERROR 
016644 000240 NOP RETURN HERE IF ERROR 
016646 104000 EMT ERROR # DEFINED BY SECERR SUBROUTINE 
016650 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
016652 000137 016656 JMP 18$ :GO TO 18% IF ERROR 
852 016656 17$: 
853 
eee 016656 18$: 
856 . FERRER EERE KEKE EEE EEE KEKE EEE EERE EERE 
=*TEST 12 FORMAT W/ HEAD SWITCHING 
:: 22a eee ee Ree RARER RRRR RRR SSSR ESSE SESS SESS STC POSES ASSES SSSA. SS 
016656 TST12: . 
016656 000004 SCOPE SCOPE CALL 
016660 000240 | NOP :START OF TEST 
016662 012706 001100 MOV #STACK,SP INITIALIZE STACK POIN.ER 
016666 013700 001276 MOV $BASE ,RO ;RO_= UNIBUS ADDRESS 
016672 013701 001466 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
= 016676 012737 000012 001226 MOV #12, $TESIN :=SET TEST NUMBER IN APT MAIL BOX 
858 >SETUP PARAMETERS FOR GENERATING DATA BUFFER 
859 016704 012737 000000 001446 MOV #0,RMDCO :CYLINDER = 0 
860 016712 112737 000000 001421 MOVB #0.RMDAO+1 TRACK = 0 
861 016720 112737 000037 001420 138: MOVB #37. .RMDAO SECTOR = 31. 
862 016726 012737 010000 001444 MOV #FMT16,RMOFO 216 BIT FORMAT 
863 016734 012737 176774 001414 MOV #-258.*2,RMWCO ;:WORD COUNT FOR 2 SECTORS (2'°S COMP) 
864 016742 012737 101360 001416 MOV ABUFONE,RMBAO  ;:DATA BUFFER ADDRESS 
a 016750 012737 000062 001412 MOV #WH,RMCS10 :WRITE HEADER AND DATA 
, 867 zVERIFY THAT SECTOR IS NOT BAD 
016756 004737 033152 JSR PC ,BADSCT : CALL BAD SECTOR MODULE 
016762 000405 BR 23: O 2$ IF NO ERROR 
016764 104401 063346 TYPE ~SCTMSG : Pepe “BAD SECTOR MESSAGE 
016770 104000 EMT “ERROR # DEFINED BY BADSCT SUBROUTINE 
016772 000137 017470 JMP 18% -GO TO 18$ IF ERROR 
868 016776 2$: 
869 016776 123727 001420 000037 CMPB RMDAO, #31. :I1S LAST SECTOR ASSIGNED ? 
870 017004 001345 BNE 1$ :BR IF NO 
871 017006 012737 065000 001174 MOV #Z7EROS,$TMPO USE ALL ZEROS DATA PATTERN 
872 017014 012737 000001 001176 MOV #1,$TMP1 
B73 017022 004737 035104 JSR PC, GENBUF :GO GENERATE DATA BUFFER 
875 PREPARE DEVICE FOR DATA TRANSFER 
876 017026 004737 032176 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
017032 154130 .WORD 154130 - TASK DESCRIPTOR AS FOLLOWS: 


:SELECT DEVICE & VERIFY DEVICE AVAILAR.E 
sCLEAR CONTROLLER & SELECT DEVICE 


ceili 


ir 
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FORMAT w/ HEAD SwIT CHING SEQ 009% 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

ZRECALIBRATE IF ‘’SKI'' OR 'PIP"' IS SET 

A RECAL IBRATION 


017034 000404 BR 3$ *GO T O 3$ IF NO ERROR 
017036 000240 NOP | a RETURN HERE IF ERROR 
017060 104000 EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
0170462 000137 017470 JMP 18% *GO TO 18% IF ERROR 

) ae 017046 33: 

879 7SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 

880 017046 012737 000005 001412 MOV MSEEK!GO,RMCS10 ; CHANGE COMMAND TO SEEK 

851 017054 012792 001553 MOV MPUTINX, R2 “WRITE REGISTER INDEX TABLE 

882 017 112722 000006 MOVB #RMDA, (R2) + 

883 017 112722 000034 MOVB ARMDC,(R2)+ 

884 017070 112722 000032 MOVB A#RMOF , (R2) + 

885 017074 112722 000000 MOVB #RMCS1,(R2)+ 

oe 017100 112722 000200 MOVB #200, (R2)+ . 

888 017104 004737 036240 JSR PC ,PuT :GO WRITE REGISTER(S) WI‘TH PUT SUBROUTINE 
017110 000404 BR 4$ GO O TO 4$ IF NO ERROR 
017112 900240 NOP ;RETURN HERE IF ERROR 
017114 104000 EMT ZERROR # DEFINED BY PUT SUBROUTINE 
017116 000137 017470 JMpP 18$ GO TO 18% IF ERROR 

Hote 017122 4$: 

R91 SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 

892 017122 004737 035704 JSR PC,GETSTS :SETUP FOR STATUS 

893 017126 004737 036602 JSR PC,TIMOUT s;WAIT FOR SEEK ‘TO COMPLETE 

894 017132 S$: 

895 

896 :GU READ SEEK STATUS 

897 017132 004737 035770 JSR PC ,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
017136 000404 BR 6$ 3;GG TO 6$ IF NO ERROR 
017140 000240 NOP = RETURN HERE IF ERROR 
017142 104000 EMT - ERROR # DEFINED BY GET SUBROUTINE 
017144 000137 017470 JMP 18$ :GO TO 18% IF ERROR 

pas: 017150 6$: . 

900 VERIFY THE RESULTS OF THE SEEK COMMAND 

901 017150 004737 044104 JSR PC,SEKSTS :;GO VERIFY fae og OF SEEK OPERATION 
017154 000405 ABR 7$ :GO TO 7$ IF NO ERROR 
017156 000240 NOP RETURN HERE IF ERROR 
017160 104000 EMT = ERROR # DEFINED BY SEKSTS SUBROUTINE 
017162 004736 JSR PC, a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
017164 000137 017470 JMP 18$ :GO TO 18% IF ERROR 

ons 017170 7$: 

904 SETUP AND EXECUTE ae HEADER AND DATA COMMAND 

905 C17170 012737 000063 001412 MOV #WH!GO,RMCS10 :WRITE HEADER AND DATA 

906 017176 012702 001556 MOV #PUTINK+3, R2 sEXTEND REGISTER INDEX TABLE 

907 017202 112722 000002 MOVB #RMWC, (R2) + 

908 017206 112722 000004 MOVB ARMBA , (R2) + 

909 017212 112722 000000 MOVB ARMCS1,(R2)+ 
017216 112722 000200 MOVES #200, (R2)+ 


oo 
—t —d 
~©& 


oo wat a ¢ FCTNL 


912 


Se 
eh eS eran: eters senescent nme _ 


017222 
0 


017342. 


w/ HEAD 


004737 
04 


004737 
004737 


30013? 
004737 


000405 
000 


012737 
004737 


104000 
000137 


004737 
004737 


104000 


TST 2 
SWITCHING 


036240 


017470 


036602 
035770 


017470 


036766 


017470 
951502 


017470 
037620 


017470 


000053 
036240 


017470 


036602 
035770 
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001412 





JSR PC,PuT i= WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 8$ TO 8$ IF NO ERROR 

NOP ‘RETURN HERE IF ERROR 

EMT sERROR # DEFINED BY PUT SUBROUTINE 

JMP 18% :GO TO 18$ IF ERROR 


8: 


:wAiT Cr COMMAND TO Beatatg Pa READ STATUS 


PC, TiMOUT FOR COMMAND TO COMPLE TE 


JSR PC,GET GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 9$ :GO TO 9$ IF NO ERROR 
NOP ; “RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY GET SUBROUTINE 
JMP 18% =GO TO 18% IF ERROR 
9¢: 
;VERIFY RESULTS OF WRITE COMMAND 
JSR PC,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
BR 10$ ;GO TO 10$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
_ JMP 18$ :GO TO 18% IF ERROR 
JSR PC ,DTASTS 7;GO VERIFY RESULTS OF DATA TRANSFER 
BR 11$ :GO TO 11$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT > ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ :GG BACK FOR MORE ERROR CHECKS 
ae JMP 18$ ;GO TO 18% IF ERROR 
JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 12$ :GO TO 12$ IF NO ERROR 
NOP * RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
138 JMP 18$ :GO TO 18% IF ERROR ° 


sWRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
MOV AWCH!GO,RMCS10 sWRITE CHECK COMMAND 


JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 13$ :GO TO 13$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PUT SUBROUTINE 
JMP 18$ :GO TO 18% IF ERROR 
13$: 
sWAIT FOR WRITE CHECK a COMPLETE AND GET STATUS — 
JSR PC, TIMOUT sWAIT FOR WRITE CHECK TO FINISH: 
JSR PC, SET :GQ READ REGISTER(S) WITH GET + edhe 
BR 14% :GO TO 14$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT -ERROR #4 DEFINED BY GET SUBROUTINE 


er a ee 


— > ee “eee 


+ aes, FC TNL 


952 
953 
954 


s 


017404 
017410 


017410 


017516 


OCOOOCOC0CO 


READ 
000137 


004737 
05 


000137 


000004 


013701 
0127357 


012737 


012737 


004737 
000405 
104401 
104000 
000137 
123737 
001342 


T 2 


TS 
SWITCHING 


017470 


036766 


017470 
051502 


017470 
037620 


017470 


001100 


000000 
001334 
000037 
010000 
176774 
101360 
000062 
033152 
063346 
020302 


001421 
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001226 


001446 


001412 


001355 


JMP 


:GO TO 18$ IF ERROR 


CHECK FOR PRIMARY ERRORS 
:GO TO 15$ IF NO ERROR 
;RETURN HERE IF ERROR 


7ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 18$ IF ERROR 


:GO gl RESULTS OF DATA TRANSFER 


:GO TO 16$ IF NO ERROR 

sRETURN HERE IF ERROR 

;ERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


:GO TO 18% IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 17$ IF NO ERROR 
:RETURN HERE IF ERROR 


;ERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 18$ IF ERROR 


SRR EERE KEKE REE EEE KER KKK 


FORMAT W/ MID TRANSFER SEEK 


FEAR KR AKEKEKKKEKEEKEKEEKKEK KEKE EKEKEEKEEKREKREEKKEKEEKKKKE 


sSCOPE CALL 

:START OF TEST 

: INITIALIZE STACK POINTER 
;RO = UNIBUS 
3(R1) = DEVICE BEING TESTED 

:zSET TEST NUMBER IN APT MAIL 80x 


ADDRESS 


NDER = 0 
:START LAST TRACK AND 


“LAST SECTOR 

316 BIT FORMAT 

ZWORD COUT FOR 2 SECTORS (2°S COMP) 
;DATA BUFFER ADDRESS 

;WRITE HEADER AND DATA 


;CALL BAD ry Abd MODULE 
:GO TO 2$ IF NO ERROR 
; TYPE BAD SECTOR MESSAGE 


:ERROR # DEFINED BY BADSCT SUBROUTINE 
:GO TO 19$ IF ERROR 


18$ 
14$: 
VERIFY THE RESULTS OF etre CHECK OPERATION 
JSR PC .PRIERR :G0 
BR 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 183 
15$: 
JSR PC ,DTASTS 
BR 16$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
16$: 
JSR PC,SECERR 
BR 17$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
17$: 
18$: 
SSTEST 13 
+5113: 
SCOPE 
NOP 
MOV #STACK,SP 
MOV $BASE ,R 
MOV TSTQUE ,R1 
MOV #I3S,$TESTIN 
SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV CO -CYLI 
1$: MOV LSTRK,RMDAO 
MOVB #31.,RMDAO 
MOV #FMT16,RMOFO 
MOV #-258.%*2,RMWCO 
MOV #BUF ONE , RMBAO 
MOV AWH,RMCS10 
: VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 
BR $ 
TYPE ,5SCTMSG 
EMT 
JMP 19$ 
es: 
CMPB RMDAO+1,LSTRK+1 
BNE 1$ 





71S LAST TRACK ASSIGNED ? 
;BR IF NO 


SOS ST A Ee Rd a sans ampere 


-~ SEQ 0101 


C7RANRO a EH FCTNL TST 2 
15 / MID TRANSFER SEEK 


—— 


966 017620 
967 017626 
968 017634 


a0 017640 


017640 
017644 


017712 
017716 


88 017734 


017740 
017744 


3 017744 


017750 


017762 


017762 


017776 


012737 
012737 
004737 


004737 
154130 


000404 


004737 
004737 


000405 
000 


065000 
600001 
035104 


032176 


020302 
000005 

3 
000200 
036240 
020302 


035704 
036602 


035770 
020302 


044104 


020302 
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001174 
601176 


001412 


3$: 
s;PREPARE DEVICE 
JSR 


4$: 


. WORD 


PC ,GENBUF 


4$ 


19$ 


#ZEROS ,STMPO 
#1, $TMP1 


sUSE ALL ZEROS DATA PATTERN 
:GO GENERATE DATA BUFFER 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VeRIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF '‘SKI'’ OR ‘PIP’ IS SET 
: VERIFY RECALIBRATION 

;GO TO 4$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 19$ IF ERROR 


> SETUP — 2 AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
HANGE COMMAND TO SEEK 


5$: 


ASEEK!GO,RMCS10 ; 
APUTINX, Re 
)+ 


#200, (R2)+ 


PC,PUT 
5$ 


19$ 


:WRITE REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 5$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 19$ IF ERROR 


; SETUP a8 i’ aereve AND THEN WAIT FOR SEEK TO COMPLETE 


6$: 
:GO READ SEEK STATUS 
JSR p 


7$: 
: VERIFY 





JSR 


BR 

NOP 
EMT 
JMP 


PC, TIMOQUT 


19$ 


THE RESULTS OF THE SEEK 
R PC,SEKSTS 


PC,a(SP)+ 


19$ 


s SETUP FOR STATUS 
:WAIT FOR SEEK TO COMPLETE 


- G0 READ REGISTER(S) WITH GET SUBROUTINE 
TO 7$ IF NO ERROR 

“RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:60 TC 19$ IF ERROR 


COMMAND 

A VERIFY RESULTS OF SEEK OPERATION 
O TO 8$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY SEKSTS SUSROUTINE 

:GO BACK FOR MORE ERROR CHECKS 

;GO TO 19$ IF ERROR 


OE a a 


SEQ 0102 


ee eee 


ZRMNBO RMO5/3/2 FCINL TST 2 
15 FORMAT wW/ MID TRANSFER SEEK 


998 020002 


0 
020154 


020154 
020162 
020166 
020170 
020172 


000137 


004737 
004737 


000063 
001556 
000002 


0004 
000000 
000200 
036240 
020302 


036602 
03577) 


02020c 


036766 


020302 
051502 


020302 
037620 


020302 


000053 
036240 
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8$: 
>;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
001472 MOV AMWH'GO,RMCS10 ;WRITE HEADER AND DAT 
MOV #PUTINX+3, R2 sEXTEND REGISTER INDEX TABLE 
MOVB #RMWC, CR }+ 
MOVB #RMBA, (R2) + 
MOVB #RMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC ,PuT :GO WRITE rig tg st WITH PUT SUBROUTINE 
BR 9$ :GO TO 9$ IF NO ERROR 
NOP = RETURN HERE IF ER ROR 
EMT = ERROR # DEFINED BY PUT SUBROUTINE 
JMP 19$ ;GO TO 19$ IF ERROR 
9$: 
zWAIT FOR WRITE COMMAND 10 COMPLETE - w READ STATUS 
JSR PC,TIMOUT zWAIT FOR COMMAND TO COMPLETE 
JSR PC,GET 3;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 10$ 3G0 TO 10$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY GET SUBROUTINE 
JMP 19$ :GO TO 19$ IF ERROR 
10$: 
:VERIFY RESULTS OF WRITE COMMAND 
JSR PC .PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 11$ =GO TO 11$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
si JMP 19$ :GO TG 19$ IF ERROR 
JSR PC ,DTASTS 3:60 vente RESULTS OF DATA TRANSFER 
BR 12$ :GO 12$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC .aCSP)+ :GO BACK FOR MORE ERROR CHECKS 
— JMP 19$ 7GO0 TO 19% IF ERROR 
JSR _ PC,SECERR ;GO CHECK FOR SECONDARY ERRORS 
BR 13$ GO TO 13$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC ,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
JMP 19$ 3;GO TO 19% IF ERROR 
13$: : 
sWRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
001412 MOV #WCH'GO,RMCS10 ;WRITE CHECK COMMAND 


JSR PC,PUT . 
14$ 


BR :GO TO 14$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT =ERROR # DEFINED BY PUT SUBROUTINE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 


SEQ 010% 


ieee 


MNBO eve FCTNL TST 2 


R 

3 MAT 
020174 
20200 


0 
1035 020222 
36 7 


1038 oaneee 


020302 
7 0203502 
7 


C20302 


Lh ey 

1049 

ieee 020330 
36 


300137 


004737 
000405 
000240 

104000 
004736 
000137 


020302 


036602 
035770 


020302 


036766 


020302 
051502 


020302 
037620 


020302 


001100 
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W/ MID TRANSFER SEEK 


14$: 
;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 
JSR PC,TIMOUT 


JMP 


19$ ;GO TO 19$ IF ERROR 


sWAIT FOR WRITE CHECK TO FINISH 


JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 15$ :GO TO 15$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
JMP 19$ =GO TO 19% IF ERROR 
15$: 
;VERIFY THE RESULTS OF mete oo OPERATION 
JSR PC,PRIERR o rie FOR PRIMARY. ERRORS 
BR O 16% IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
van JMP 19$ 3;GO TO 19% IF ERROR 
JSR PC,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
BR 17$ -GO TO 17% IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ '3GO BACK FOR MORE ERROR CHECKS 
im JMP 19$ :GO TO 19% IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 18$ :GO TO 18$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
JMP 19$ ;GO TO 19% IF ERROR 
18$: | 
19$: 
FERRER EKER EKKEEKKKKKEEKKKKERKKCKEKEKEKKEKKKEKKEKEKEKEKEKEKEKE 
 STEST 14 *’ FORMAT W/ IMPLIED SEEK 
FEAR KEK REE EKREKEEKEEKEEKEKEEKKKEKKEKEEKEKKEKKEEKKKEEKKEKKEES * 
S114: 
SCOPE :SCOPE CALL 
NOP ; ;START OF TEST 
MOV ASTACK, SP INITIALIZE STACK POINTER 
MOV $BASE ,RO “RO = UNIBUS ADDRESS 
MOV TSTQUE,R1. 3(R1) = DEVICE BEING TESTED 
001226 MOV #14,$TESITN =: SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
001446 MOV #0,RMDCO :CYLINDER = ° 
001420 MOV #0,RMDAO ; TRACK = 0, SECTOR = 0 
01444 MOV #FMT16,RMOFO :16 BIT FORMAT 
001414 MOV #-258.*2,RMWCO ;WORD COUNT FOR 2 SECTORS (2'S COMP) 
001416 MOV #BUF ONE , RMBAO :DATA BUFFER ADDRESS 
001412 MOY A#WH,RMCS10 :WRITE HEADER AND DATA 


SEQ 0104 
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lite 


SE st ane amen wen 


T14 FORMAT W/ IMPLIED SEEK SEQ 0105 
7057 7 VERIFY THAT SECTOR IS NOT BAD 
020374 0064737 633152 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
020400 000405 55 :GO TO 1$ IF NO FPROR 
020602 104401 063346 TYPE ~5SCTMSG : TYPE BAD SECTOR MESSAGE 
020406 104900 EMT = ERROR # DEFINED BY BADSCT SUBROUTINE 
_ aeneee 000137 021120 - JMP 18$ :GO TO 18$ IF ERROR 
1059 020414 012737 065000 001174 MOV ph oP $TMPO ;USE ALL ZEROS DATA PATTERN 
1 020422 012737 000001. 001176 MOV #1,$TMP1 
1061 0204350 004737 035104 JSR PC,  GENBUF 3G0 GENERATE DATA BUFFER 
1ROe 020434 2$: 
1064 ;PREPARE DEVICE FOR DATA TRANSFER 
1065 020434 004737 032176 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
020440 1546130 -WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
= SELECT DEVICE & VERIFY DEVICE AVAILARLE 
;CLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘‘SKI°’ OR 'PIP’’ IS SET 
= VERIFY RECAL IBRATION 
020442 000404 BR 3$ :GO TO 3$ IF NO ERROR 
020444 (000240 NOP “RETURN HERE IF ERROR 
020446 104000 EMT ZERROR # DEFINED BY TSTPRP SUBROUTINE 
020450 000137 021120 JMP 18% :GO TO 18$ IF ERROR 
1066 020454 3$: J 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER 
1069 020454 013737 001446 021122 MOV RMDCO, a ie ;SAVE CYLINDER ADDRESS 
1070 020462 012737 001466 001446 MOV #822., >SEEK TO LAST CYLINDER 
1071 020470 012737 000005 001412 MOV eSEEKiCO. S10 <i Ee € TO SEEK 
1072 020476 012702 001555 MOV APUTIN R2 “WRITE REGISTER INDEX TABLE 
1073 020502 112722 MOVB #RMDA, (R2) + 
1074 020506 112722 000034 MOVB ARMDC , (R2)+ ’ 
1075 020512 112722 000032 MOVB #RMOF ,(R2)+ 
1076 020516 112722 000000 MOVB #RMCS1,(R2)+ 
4 2 020522 112722 000290 MOVB #200, (R2)+ 
1079 020526 004737 036240 JSR PC PUT 7;GO WRITE REGISTER(S) WITH PU? SUBROUTINE 
020532 000404 BR 4$ :GO TO 4$ IF NO ERROR 
020534 000240 NOP RETURN HERE IF ERROR 
020536 104 FMT - ERROR # DEFINED BY PUT SUBROUTINE 
020540 000137 021120 ) JMP 18$ 360 TO 18$ IF ERROR 
ee 020544 4$: 
1082 ; SETUP FOR READING STATUS AND THEN WAIT FOR ty TO COMPLETE 
1083 020544 004737 035704 JSR PC,GETSTS sSETUP FOR STATUS 
1084 020550 004737 036602 JSR PC, TIMOUT “WAIT FOR SEEK TO COMPLETE 
1085 020554 | 5$: 
1086 Me 
1087 ;GO READ SEEK STATUS 
1088 020554 004737 035770 JSR PC,GET : GO READ REGISTER(S) WITH GET SUBROUTINE 
020560 000404 -GO TO 6$ IF NO E aoe 
020562 (00240 NOP RETURN HERE IF ERROR 
020564 104000 EMT :ERROR # DEFINED. BY GET SUBROUTINE 
020566 000137 021120 JMP 18% :GO TO 18% IF ERROR 


. & 
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——- 


ee ee ee 


T14 FORMAT w/ IMPLIED SEEK SEQ 
1a 020572 6$: 
1091 ; sVERIFY THE RESULTS OF THE SEEK COMMAND 
1092 020572 004737 044104 JSR PC,SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
020576 000405 BR :GO TO 7$ IF NO ERROR 
020600 000240 NOP ;RETURN HERE IF ERROR 
020602 104 EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
029604 004736 JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
020606 000157 021120 JMP 18$ :GO TO 18$ IF ERROR 
y's 093 020612 7$: 
1095 >SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
1096 020612 013737 021122 001446 MOV 19$,RMDCO sRESTORE DISK ADDRESS 
1097 020620 012737 000063 001412 MOV #wWH'GO,RMCS10  :WRITE HEADER AND DATA 
1098 020626 012702 00155 MOV #PUT INK+3,R2 :EXTEND REGISTER INDEX TABLE 
1099 020632 112722 000002 MOVB #RMWC, (R2)+ 
1700 020636 112722 000004 MOVB ,(R2)+ 
1101 020642 112722 000000 MOVB #RMCS1, (R2)+ 
Bs 020646 112722 000200 MOVB #200, (R2)+ 
1104 020652 004737 036240 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
020656 0004 BR 8$ :GO TO 8$ IF NO ERROR 
020660 000240 NOP :RETURN HERE IF ERROR 
020662 104 EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
20664 000137 021120 JMP 18$ :GO TO 18$ IF ERROR 
1th 020670 8$: 
1107 zWAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
a 020670 004737 036602 JSR PC, TIMOUT sWAiT FOR COMMAND TO COMPLETE 
1110 020674 004737 035770 JSR PC,GET : GO READ REGISTER(S) WITH GET SUBROUTINE 
20700 000404 BR 9$ TC 9$ IF NO ERROR 
020702 000240 NOP “RETURN HERE IF ERROR 
020704 104000 EMT ;ERROR # DEFINED BY GET SUBROUTINE 
020706 000137 021120 JMP 18$ :GO TO 18$ IF ERROR 
Bo 020712 9$: 
1113 sVERIFY RESULTS OF WRITE COMMAND 
1114 020712 004737 036766 JSR PC,PRIERR >GO CHECK FOR PRIMARY ERRORS 
020716 000405 BR 10$ :GO TO 10$ IF NO ERROR 
020720 000240 NOP ;RETURN HERE IF ERROR 
C20722 104 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
020724 004736 JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
20726 000137 021120 JMP 18$ :GO TO 18$ IF ERROR 
1115 020732 10$: 
1116 020732 004737 051502 JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
020736 000405 BR 11$ :GO TO 11$ IF NO ERROR 
020740 000240 NOP :RETURN HERE IF ERROR 
020742 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
020744 004736 JSR PC ,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
020746 000137 021120 JMP 18$ ;GO TO 18% IF ERROR 
1117 020752 11$: 
1118 020752 004737 037620 JSR PC,SECERR >GO CHECK FOR ay ERRORS 
020756 000405 BR 12$ + GO O TO 12$ IF NO ERROR 
020760 000240 NOP ;RETURN HERE IF ERROR 
020762 1040 EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 
020764 004736 JSR PC,@(SP)+ :GO BACK FOR MORE ERROR CHECKS 


ieee 


S| ae spit ake FCTNL TST 2 


el el ee ed eee ed od 


SEER KHL DW 


NOWUSW OO 


FORMAT 


020766 
020772 


0001 37 


012737 
004737 
000404 
000240 
104900 
000137 
004737 
004737 
000404 
000240 
104000 
000137 


000401 
000000 


000004 


W/ IMPLIED SEEK 


021120 


000053 
036249 


021120 


036602 
035770 


021120 


036766 


021120 
051502 


021120 
037620 


021120 
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001412 


12$: 


JMP 18$ :GO TO 18$ IF ERROR 


sWRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
MOV OMMAND 


13$: 


sWAIT FOR WRITE 
JSR 


14$: 
; VERIFY 


15$: 


16$: 


17$: 
18$: 
19$: 
20$: 


MWCH!GO,RMCS1O ;WRITE CHECK C 


PC ,PuT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 13$ :GO TO 13$ IF NO ERROR 


NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PUT _— 
JMP 18$ :GO TO 18% IF ERROR 


CHECK TO COMPLETE AND GET STATUS 
PC,TIMOUT sWAIT FOP WRITE CHECK TO FINISH 


JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 14$ :GO TO 14$ IF NO ERROR 

NOP ;RETURN HERE IF ERROR 

EMT sERROR # DEFINED BY GET SUBROUTINE 

JMP 18$ :GO TO 18$ IF ERROR 

THE PESULTS ‘OF lg CHECK OPERATION 

JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 


BR 15$ :GO TO 15$ IF NO ERROR 


NOP _ZRETURN HERE IF ERROR 

EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

JMP 18$ >GO TO 18$ IF ERROR 

JSR PC ,DTASTS 


:GO VERIFY RESULTS OF DATA TRANSFER 
BR 16$ :GO.TO 16$ IF NO ERROR 


NOP :RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 18$ :GO TO 18% IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 17$ :GO TO 17$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC ,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 18$ :GO TO 18$ IF ERROR 
BR 20$ 
WORD 0 ; TEMPORARY STORAGE 


FREER EEE EEE EERE RETREAT EERE Re 


SSTEST 15 


FORMAT EACH SECTOR ADDRESS 


"Ate eee ee eee RRSRARRRARRSEREASESSS LER ERASE RRS SERS RSE SRS RSS SSS 


18115: 


SCOPE :SCOPE CALL 


SL SN EE Re See eee ie o—-. — e+ 


SEQ 010/ 


ee ee —s 


ere. ree ae on 
; 


E 
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TT§ ORMAT EACH SECTOR ADDRESS SfQ 010% 
021126 000240 NOP ZSTART OF TEST 
021130 012706 601100 MOV #STACK,SP ; INITIALIZE oo POINTER 
021134 013700 001276 MOV $BASE ,RO RO = UNIBUS DRESS 
021140 013701 001466 MOV TSTQUE ,R1 :(R1) = DEVICE OBE ING TESTED 
skh 021144 012737 000015 001226 MOV #15, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1149 SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1150 021152 012737 Q00000 001446 MOV #0,RMDCO ;CYLINDER = 0 
1151 021160 012737 QO00000 001420 - MOV #0,RMDAO ; TRACK = 0, SECTOR = 0 
a AB 9 012737 010000 001444 . MOV #FMT16,RMOFO 316 BIT FURMAT 
1154 021174 012737 177376 001414 MOV #-258.,RMWCO ze + 256 WORDS (2°S COMP) 
1155 021202 012737 101340 001416 MOV #BUF ONE , RMBAO ;DATA BUFFER ADDRESS 
4a 021219 012737 000062 001412 MOV A#wWH,RMCS10 ;WRITE HEADER AND DATA 
1158 iVERIFY THAT SECTOR IS NOT BAD 
021216 004737 033152 JSR PC ,BADSCT ;CALL BAD ee MODULE 
021222 000405 Rh 2$ “GO TO 2$ IF NO ERROR 
021224 104401 063346 TYPE ~SCTMSG : TYPE BAD SECTOR ME SSAGE 
621230 104000 EMT “ERROR # DEFINED BY BADSCT SUBROUTINE 
021232 000137 021666 JMP 16$ :GO TO 16$ IF ERROR 
1159 021236 es: 
1160 021236 012737 001420 001174 MOV #RMDAO,$TMPO ;USE SECTOR FOR DATA PATTERN 
1161 021244 012737 000001 001176 MOV 41,$1MP1 
1162 021252 004737. 035104 JSR PC, GENBUF :GO GENERATE DATA BUFFER 
a 021256 3$: 
1165 PREPARE DEVICE FOR DATA TRANSFER 
1166 021256 004737 032176 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
021262 154130 . WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
. ;CLEAR CONTROLLER & SELECT DEVICE 


: VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNO'CLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
;ECALIBRATE IF “'SKI*' OR *PIP*’ ae SET 
: VERIFY RECALIBRATION 


021264 000404 BR 4$ :GO TO 4$ IF NO ERROR 
021266 000240 NOP :RETURN HERE IF ERROR 
021270 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
021272 000137 021666 JMP 16$ :GO TO 16$ IF ERROR 

Bs 74 021276 4$: 

1169 sSETUP AND EXECUTE aoe HEADER AND DATA COMMAND 

1170 021276 012737 000063 001412 MOV AWH'GO,RMCS1O0 ;WRITE HEADER AND DATA 

1171 0213504 012702 001553 MOV #PUT INK ,Re sWRITE REGISTER INDEX TABLE 

1172 021310 112722 000006 MOVB ARMDA, (Re) + 

11735 021314 112722 000034 MOVB ARMDC, (R2) + 

1174 021320 112722 000032 MOVB ARMOF , (R2) + 

1175 021324 112722 000002 MOVB ARMWC , (RO) + 

1176 021330 112722 000004 MOVB ARMBA , (R2) + 

1177 021334 112722 000000 MOVB ARMCS1, (R2) + 

Bs 021340 112722 000200 MOVB #200, (R2)+ 7 

1780 021344 004737 036240 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
021350 000404 BR 5$ ;GO TO 5$ IF NO ERROR 


021352 000240 . NOP sRETURN HERE IF ERROR 


seer 


ee ee ee 
eerie eee es 


¢RMNBO RMO5/ 3/2 FCTNL TST 2 
FORMAT EACH SECTOR ADDRESS 


° 


021354 
021356 
021362 


021362 
021366 


021372 
021376 


021410 


021410 
021414 


104000 
0001537 
004737 


004737 
004737 
04 


000137 
004737 


000137 


012737 
012737 


004737 


021666 


035704 
036602 


035770 


021666 


036766 


021666 
051502 


021666 
037620 


021666 


000073 
102364 


036240 


021666 


036602 
035770 


021666 
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00141 
00741 


OM 


EMT 
JMP 


sERROR # DEFINED BY PUT SUBROUTINE 
16$ :GO TO 16$ IF ERROR 


$$: 
: SETUP — eae ee paren FOR READING STATUS 


+ PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
JSR PC,GET GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP = RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY GET SUBROUTINE 
JMP 16$ 3:GO TO 16$ IF ERROR 
6$: 
;VERIFY RESULTS OF WRITE COMMAND 
JSR PC,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
BR 7$ :GO TO 7$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
* JMP 16$ ;GO TO 16% IF ERROR 
JSR PC,DTASTS + GO VERIFY RESULTS OF DATA TRANSFER 
BR 8$ O TO 8$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC, ,a(SF)+ GO BACK FOR MORE ERROR CHECKS 
as JMP 16$ 3;GO TO 16% IF ERROR 
JSR PC, SECERR ‘= CHE CK As coe ERRORS 
BR 9$ TO 9$ iF NO ERROR 
NOP sae tue HERE IF ERROR 
EMT ZERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC ,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
“i JMP 16$ :GO TO 16% IF ERROR 


sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV #RH'GO,RMCS10 ;READ HEADER & DATA COMMAND 
MOV #BUF TWO, RMBAC ; CHANGE BUS ADDRESS 


PC ,PUuT 7GQ WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 10$ :GO TO 10$ IF NO'ERROR 


NOP :RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
JMP 16$ :GO TO 16$ IF ERROR 


10$: 


sWAIT FOR READ TO COMPLETE AND GET STATUS 
JSR PC,TIMOUT ;WAIT FOR READ TO COMPLETE 


PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 11$ :GO TC 11$ IF NO ERROR 


NOP sRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
JMP 6% ;G0 TO 16$ IF ERROR 


SFI f,@ ve 
SEQ 07 
: 


rT 


- 7RMNBO 
1§ 


1231 
1232 
1233 
1234 
1235 


RMO5/3/2 FCTNL TST 2 
FORMAT EACH SECTOR ADDRESS 


021544 


021544 


021624 


021624 


021714 
021722 
021730 


004737 
5 


000137 
004737 


000137 


004737 
101360 
102364 

04 


0004 
000240 


104000 
000137 


C05237 


036766 


021666 
051502 


021666 
037620 


021666 


035342 


021666 


001420 
000037 


021174 


001100 
000016 


000000 
000000 
016000 
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001420 


001226 


001446 
001420 
001444 


17$: 


; VERIFY i gees ts rea OPERATION 


12$: 


13$: 


14$: 
S VERIFY 


PC,a@(SP)+ 
16$ 


PC ,DTASTS 
13$ 


PC ,a(SP)+ 
16% 


PC,SECERR 
14$ 


PC, a(SP)+ 
16$ 


PC, CMPBUF 
-WORD BUFONE 
BUF TwO 
15$ 


16$ 


;GO CHECK FOR PRIMARY ERRORS 
:GO TO 12$ IF NO ERROR 
;RETURN HERE IF ERROR 


:ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 16$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
;GO TO 13$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 


;GO BACK FOR MORE ERROR CHECKS 
:GO TO 16% IF ERROR 


:GO oe FOR SECONDARY ERRORS 
:GO TO 14$ IF NO ERROR 
‘RETURN HERE IF ERROR 
sERROR # DEFINED BY SECERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
;GO TO 16% IF ERROR 


;GO COMPARE WRITE, READ DATA BUFFERS 
sSTARTING ADDRESS OF WRITE BUFFER 
:STARTING ADDRESS OF READ BUFFER 

;GG TO 15$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY CMPBUF SUBROUTINE 
:GO TO 16% IF ERROR 


aon ADDRESS AND FORMAT NEXT SECTOR 


sADVANCE SECTOR COUNT 
Veet ALL SECTORS?? 


:GO DO NEXT SECTOR 


a SEEKER ERE REET REE EER REESE REE ER AREER KEE 


FORMAT EACH TRACK ADDRESS 


SERRE REE ARE RE A ER EERREEEE ERE EEK EERE EEE EREREKKERKER EE 


sSCOPE CALL 

sSTART OF TEST 
sINITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 


:(R1) = DEVICE BEING TESTED 
;:SET TEST NUMBER IN APT MAIL BOX 


LINDER = 0 
; TRACK = 0, SECTOR = 0 
"16 BIT FORMAT 


INC RMDAO 
CMPB #31. ,RMDAO 
BLO 16$ 
JMP 1$ 

16$: 

= *TEST 16 

TST16: 

fe SCOPE 

NOP 
MOV H#STACK,SP 
MOV SBASE ,RO 
MOV TSTQUE ,R1 
MOV #I6,$TESIN 

;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV ys Se He :CY 
MOV #0 ,RMDA 
MOV PATIO RMOFO 


T16 


C2RMNBO RMOS/3/2 FCINL TST 2 
FORMA 


MAT 


1236 021736 


1237 021736 
1238 021744 
Le ty 021752 


1 
1249 022020 
022024 
022026 
1 
1 
1 
1 
1 
1 
19 
1 
1 
1 
1 
1 
1262 
1263 022106 


022120 
1264 022124 
1265 


1266 
1267 022124 
eee 022130 


1270 022134 
022140 
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EACH TRACK ADDRESS 


1$: 


012737 177376 001414 MOV #-258.,RMWCO 32 + 256 WORDS (2°S COMP) 
012737 101360 001416 MOV #BUFONE,RMBAO DATA BUFFER ADDRESS 
012737 000062 001412 MOV #wH ,RMCS10 ;WRITE HEADER AND DATA 
;VERIFY THAT SECTOR IS NOT BAD 
004737 033152 : JSR PC,BADSCT .-—; CALL_BAD SECTOR MODULE 
0 BR :GO TO 2$ IF NO ERROR 
104401 063346 TYPE =, SCTMSG ;TYPE BAD SECTOR MESSAGE 
104 : EMT ;ERROR # DEFINED BY BADSCT SUBROUTINE 
000137 022430 JMP 16$ :GO TO 16$ IF ERROR 
012737 001420 001174 MOV #RMDAO,$TMPO =; USE_ TRACK FOR DATA PAT-TERN 
012737 000001 001176 MOV #1,$TMP1 
004737 035104 ” JSR PC, GENBUF ;GO GENERATE DATA BUFFER 
;PREPARE DEVICE FOR DATA TRANSFER 
004737 032176 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
154130 .WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
' ;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ''SKI'’ OR 'PIP’' IS SET 
; VERIFY RECALIBRATION 
000404 BR 4$ :GO TO 4$ IF NO ERROR 
000240 NOP :RETURN HERE IF ERROR 
104000 EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
000137 022430 a JMP 16$ :GO TO 16$ IF ERROR 
: :SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
012737 000063 001412 MOV #WH'GO,RMCSIC  ;WRITE HEADER AND DATA 
012702 001553 MOV #PUT INK ,R2 ;WRITE ‘REGISTER INDEX TABLE 
112722 000006 MOVB  #RMDA, (R2)+ 
112722 000034 MOVB  ARMDC,(R2)+ 
112722 000032 MOVB  #RMOF.(R2)+ 
112722 000002 MOVB #RMWC, (R2)+ 
112722 000004 MOVB §ARMBA, (R2) + 
112722 000000 MOVB #RMCS1,(R2)+ 
112722 000200 MOVB #200,(R2)+ 
004737 036240 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
000404 BR 5$ :GO TO 5$ IF NO ERROR 
000240 NOP :RETURN HERE IF ERROR 
104000 EMT ;ERROR # DEFINED BY FUT SUBROUTINE 
000137 022430 - JMP 16$ =GO TO 16$ IF ERROR 
:SETUP INPUT REGISTER BUFFER FOR READING STATUS 
004737 035704 JSR C,GETSTS 
004737 036602 J8R PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
004737 035770 JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
000404 BR 6$ -GO TO 6% IF NO ERROR 


TT SRD eS de een a — 
eer - - --- -~ — ee ee - 


. *% 
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16 FORMAT EACH TRACK ADDRESS 


022326 


022142 000240 NOP ;RETURN HERE IF ERROR 
022144 104000 EMT ZERROR # DEFINED BY GET SUBROUTINE 
022146 000137 022430 JMP 16$ :GO TO 16$ IF ERROR 
ie 022152 6$: 
1273 : VERIFY RESULTS OF WRITE COMMAND 
1274 022152 004737 036766 JSR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
022156 000405 BR 7$ :GOQ TO 7$ IF NO ERROR 
022160 000240 NOP :RETURN HERE IF ERROR 
022162 104000 EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
022164 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
022166 000137 022430 i JMP 16$ :GO TO 16$ IF ERROR 
022172 004737 051502 JSR PC ,DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
022176 000405 BR 83 O 8$ IF NO ERROR 
022200 000240 NOP ‘RETURN HERE IF ERROR 
022202 104000 EMT ;ERROR # DEFINED BY DTASTS SUBROUTINE 
022204 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
osssus 000137 022430 = JMP 16$ :GO TO 16$ IF ERROR 
1278 022212 004737 037620 JSR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
022216 000405 BR 9$ :GO TO 9$ IF NO ERROR . 
022220 000240 NOP :RETURN HERE IF ERROR 
022222 104000 EMT. :ERROR # DEFINED BY SECERR SUBROUTINE 
022224 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
022226 000137 022430 JMP 16$. :GO TO 16% IF ERROR 
uy 022232 9$: 
1281 ;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 
1282 022232 012737 000073 001412 MOV #RH'GO,RMCS10  ;READ HEADER & DATA COMMAND 
1283 022240 012737 102364 001416 MOV #8UFTWO,RMBAO CHANGE BUS ADDRESS 
4 
1285 022246 004737 036240 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
022252 000404 BR 10$ :GO TO 10$ IF NO ERROR 
022254 000240 NOP :RETURN HERE IF ERROR 
022256 104000 EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
022260 000137 022430 JMP 16$ :GO TO 16% IF ERROR 
1286 022264 108: 
1288 ;WAIT FOR READ TO COMPLE TE AND GET STATUS 
1289 022264 004737 036602 JSR PC, TIMOUT ;WAIT FOR READ TO CUMPLETE | 
1291 022270 004737 035770 7 JSR PC,GrT :GO READ REGISTER(S) WITH GET SUBROUTINE 
022274 000404 : BR 11$ :GO TO 11$ IF NO ERROR 
022276 000240 NOP :RETURN HERE IF ERROR 
022300 104000 EMT :ERROR # DEFINED BY GET SUBROUTINE 
022302 000137 022430 JMP 16$ :GO TO 16$ IF ERROR 
022306 11$: 
:VERIFY THE RESULTS OF READ OPERATION 
022306 004737 036766 JSR PC ,PRIERR :GO CHECK FOR PRIMARY ERRORS 
022312 000405 BR :GO TO 12% IF NO ERROR 
022314 000240 NOP :RETURN HERE IF ERROR 
022316 104000 EMT :ERROR # DEFINED BY PRIERR SUBROUTINE 
022320 004736 ‘ JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
022322 000137 022430 JMP 16$ ;GO TO 16% IF ERROR 


a ROS / 2/2 FCTNL TSi 2 
FORMA’ 


1297 


1 


ee ee ee ee | 


022526 
022332 
022 


022430 


022430 


0225U6 


004737 
000405 
000240 
10400C 
004736 
000137 
004737 


104000 
000137 


105237 
123757 
101002 
000137 


000004 


051502 


022430 
037620 


022430 


035342 


022430 


001421 
001421 


021736 


001100 
001276 
001466 
000017 


000001 
000000 
000062 


033152 
063346 
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EACH TRACK ADDRESS 


001355 


001226 
001446 
001420 
001444 


001412 


JSR PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 13$ :GO TO 13$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
| JSR PC a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
sel MP 16$ :GO TO 16$ IF ERROR 
JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
AR 14$ “GO TO 14$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
IMP 16$ "GO TO 16$ IF ERROR 
14$: 
:VERIFY DATA | 
JSR PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
“WORD BUFONE “STARTING ADDRESS OF WRITE BUFFER 
| .WORD BUF TWO : STARTING ADDRESS OF READ BUFFER 
'BR 15$ "GO TO 15$ IF NO ERROR 
‘NOP “RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY CMPBUF SUBROUTINE 
IMP 16$ *GO TO 16$ IF ERROR : 
; INCREMENT ADDRESS AND FORMAT NEXT TRACK ; 
-INCB — RMDAO+1 :ADVANCE TRACK COUNT 
(MPR —-RMDAO+1,LSTRK+1 LAST TRACK ? 
BHI 16$ “YES! 
‘aes JMP 1$ 60 $0 NEXT SECTOR 


oo NERA ERRRRERE ERE REE AEE REE ERA RRA AERA ERE EE 


FORMAT PRIME CYLINDERS 


FOIE IOC ESIOIISISIIEIOISISIIOIOISISIIOIOISIIIIOIIOIUIIOIOISIOIUIOII IOI III IO 


sSCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


INDER = 1 
; TRACK = 0, SECTOR = 0 


316 BIT FORMAT 

s2 + 256 WORDS (2'S COMP) 
:DATA BUFFER ADDRESS 
;WRITE HEADER AND DATA 


* CALL BAD SECTOR MODULE 
O TO 2% IF NO ERROR 
: TYPE BAD SECTOR MESSAGE 


>*TEST 17 
rSri7: 
SCOPE 
NOP 
MOV #STACK,SP 
MOV $BASE ,RO 
MOV TSTQUE .R1 
MOV #17, $TESIN 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV #1,.RMDCO CYL 
a MOV #0.RMDAO 
MOV #FMT16,RMOFO 
MOV #-258. ,RMWCO 
MOV #BUF ONE , RMBAO 
MOV WH ,RMCS10 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 
BR 2$ 
TYPE §_, SCTMSG 
EMT 


:ERROR # DEFINED BY BADSCT SUBROUTINE 


re 


FORMAT 


1328 022556 
1330 022562 


022562 
022566 


022570 


022602 


YEAS 


38 022610 


~ 3 3 3 Ls ow = 
WANNA WW 
EFEES Se hy 
AOU wnr—-oO 

ooo 


Ww 
S 


022666 


ee |S ee 
WINWAIAGi i 
MIMI 
wn Oo 0On 


022714 


022714 
022720 
022722 


022602 


000137 
012737 


004737 


154130 


000137 


004737 


RMO5/3/2 FCTINL TST 2 
PRIME CYLINDERS 


023172 


001446 
000001 
035104 


032176 


023172 


000063 
001553 
000006 
000034 


000000 
000200 
036240 
023172 
035704 
036602 
035770 


023172 


036766 
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001174 
001176 


001412 


6$: 
VERIFY 


:WAIT FOR WRITE 
JSR 


JSR 

BR 

NOP 

EMT 

JMP 
RESULTS 
JSR 


BR 
NOP 


JMP 16$ 
MOV #RMDCO, = 
MOV #1,$TMP1 
JSR PC, GENBUF 

3$: 

;PREPARE DEVICE FOR DATA TRANSFER 

JSR PC, TSTPRP 
. WORD 154130 
BR 4$ 
NOP 
EMT 
JMP 16$ 

4$: 

SETUP AND EXECUTE WRITE HEADER 
MOV #WH!GO,RMCS1C 
MOV APUTINX,R2 
MOVB ARMDA, (R2) + 
MOVB ARMDC, (R2)+ 
MOVB HRMOF , (R2) + 
MOVB ARMWC, (R2) + 
MOVB ARMBA, (R2) + 
MOVB #RMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR r 
BR 
NOP 
EMT 
JMP 16$ 

5$: “a 


PC.GETSTS 


:60 TO 16$ IF ERROR 
sUSE CYLINDER FOR DATA PATTERN 
:GO GENERATE DATA BUFFER 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 

; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF *’SKI*’ OR 'PIP’’ IS SET 
: VERIFY RECALIBRATION 

;GO TO 4$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 16$ IF ERROR 


AND DATA COMMAND 


:WRITE HEADER AND DATA 
sWRITE REGISTER INDEX TABLE 


>GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 5$ IF NO ERROR 

sRETURN HERE IF ERROR 

ZERROR #4 DEFINED BY PUT SUBROUTINE 

:GO TO 16$ IF ERROR 


SETUP eae ae BUFFER FOR READING STATUS 


COMMAND TO COMPLETE Fg Page STATUS 


PC,TIMOUT 
PC.GET 
6$ 


16$ 


OF WRITE COMMAND 


PC,PRIERR 
7$ 


WAIT COMMAND TO COMPLETE 
‘60 READ gig ig + WITH GET SUBROUTINE 
:GO TO 6$ IF NO ERROR 


:RETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
;GO TO 16$ IF ERROR 


;GO CHECK FOR sta ERRORS 
;GO TO 7$ IF NO ERROR 
:RETURN HERE IF ERROR 


ee 


SEQ O114 


S| ana vas 6 FCTNL TST 2 
T PRIME CYLINDERS 
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022724 104 EMT :ERROR # DEFINED BY PRIERR SUBROUTINE 
022726 604736 JSR PC a(SP)+ >GO BACK FOR MORE ERROR CHECKS 
922730 000137 923172 ‘a JP 16$ :GO TO 16$ IF ERROR 
922734 004737 051502 JSR PC .DTASTS ;GO VERIFY ype gt OF DATA TRANSFER 
22740 000405 BR 8$ :GO TO 8$ IF NO ERROR 
022742 000240 NOP “RETURN HERE IF ERROR 
022744 104 EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
022746 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
022750 000137 023172 * JMP 163 -GO TO 16$ IF ERROR 
022754 004737 037620 JSR PC,SECERR :G0 oa oe FOR SECONDARY ERRORS 
022760 0004 BR 9$ :GO 10 9$ IF NO ERROR 
22762 000240 NOP “RETURN HERE IF ERROR 
22764 104000 EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 
022766 004736 JSR PC,a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
022770 000137 023172 JMP 16$ :GO TO 16$ IF ERROR 
132 022774 9$: 
1365 :READ HEADER AND DATA FOR 3ECTOR JUST WRITTEN 
1366 022774 012737 000073 001412 MOV #RH'GO,RMCS10  ;READ HEADER & DATA COMMAND 
1367 023002 012737 102364 001416 MOV #BUFTWO,RMBAO :CHANGE BUS ADDRESS 
1368 023010 004737 036240 . JSR PC,PUT -GO WRI TE REGISIER(S) WITH PUT SUBROUTINE 
023014 000404 BR 10$ -GO TO 10$ I 
023016 0002 NOP RETURN HERE. IF ERROR 
023020 104000 EMT ZERROR # DEFINED BY FUT SUBROUTINE 
023022 000137 023172 JMP 16$ =GO TO 16$ IF ERROR 
1369 023026 10$: 
1371 :WAIT FOR READ TO COMPLE TE AND GET STATUS 
1372 023026 004737 036602 JSR PC, TIMOUT :WAIT FOR READ TO COMPLETE 
1373 023032 004737 035770 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
023036 000404 BR 11$ :GO TO 11$ IF NO ERROR 
023040 000240 NCP “RETURN HERE IF ERROR 
023042 104000 EMT :ERROR # DEFINED BY GET SUBROUTINE 
023044 000137 023172 JMP 16$ -GO TO 16$ IF ERROR 
1374 023050 11$: | 
1376 : VERIFY THE RESULTS Of READ OPERATION 
1377 023050 004737 036766 JSR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
023054 000405 BR 12$ :GO TO 12$ IF NO ERROR 
023056 000240 NOP | “RETURN HERE IF ERROR 
23060 104000 EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
023062 004736 JSR PC a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
023064 000137 023172 me JMP 16$ :GO TO 16$ IF ERROR 
023070 004737 051502 JSR PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
23074 000405 BR 13$ :GO TO 13$ IF NO ERROR 
| 023076 000240 NOP “RETURN HERE IF ERROR 
023100 104000 EMT = ERROR a DEFINED BY DTASTS SUBROUTINE 
023102 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
023104 000137 023172 a JMP 16$ -GO TO 16% IF ERROR 
023110 004737 037620 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
023114 000405 BR 14$ -GO TO 14% IF NO ER ROR 
023116 000240 NOP = RETURN HERE IF ERR 
023120 104000 EMT “ERROR # DEFINED 7 SECERR SUBROUT INE 


LE ee ee i ree ST 


| Cerne MNBO waa £ FCTINL TST 2 


RMAT 


023122 
023124 
af 023130 


385 023130 


1390 023156 


1393 023172 


023172 


023206 
023212 


1398 023220 
1399 023226 
1400 023234 
01 023242 
402 023250 


Pea + 
~~ 


1207 
1408 023272 
023276 


023300 
023302 
023304 


023306 
1409 023312 


36 
000137 


012737 
012737 


012737 
012737 


012737 
012737 


004737 
154130 


000404 
000240 
104 


000 
000137 





PRIME CYLINDERS 


023172 


035342 


023172 


001446 
001446 


022472 


001100 


177376 
102364 
000073 


032176 . 


023476 
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JSR PC ,a(SP)+ 
16$ 
14$: 


-VERIFY DATA 
JSR PC, CMPBUF 


-WORD BUFONE 
-WORD BUF TWO 
BR 15$ 
NOP 

EMT 

JMP 16$ 


15$: 


:GO BACK FOR MORE ERROR CHECKS 
:GO TO 16$ IF ERROR 


:GO COMPARE WRITE, READ DATA BUFFERS 
sSTARTING ADDRESS OF WRITE BUFFER 
;STARTING ADDRESS OF READ BUFFER 
:GO TO 15$ IF NO ERROR 
;RETURN HERE IF ERROR 

;ERROR # DEFINED BY CMPBUF SUBROUTINE 

:GO TO 16$ IF ERROR 


ates aimee AND FORMAT NEXT PRIME CYLINDER 


RMD CO 
RMDCO,#512. 


ADVANCE CYLINDER COUNT 
: DONE ALL PRIME CYLINDERS ? 


:GO DO NEXT CYLINDER 


FERRER KKK EEE KEE AKER ERE KEK EERE EERE 


READ HEADER & DATA IN LAST SECTOR 


SERRA ERK EKER EEEEREKKEKKERKEKEKEKEKEEREEEKEKEEEREEEEEKEEKKKKKKE 


001000 CMP 
BGT 16$ 
MP oS 
16$: 
SS TEST 20 
18120: 
SCOPE 
NOP 


MOV ASTACK ,SP 


MOV $BASE ,RO 


MOV TSTQUE ,R1 


c$: 


oe 


:SCOPE CALL 

:START OF TEST 

: INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 
::SET TEST NUMBER IN APT, MAIL BOX 


;LAST CYLINDER 

;SET LAST TRACK AND 
:LAST SECTOR 

BIT FORMAT 


+ 256 WORDS (2°S COMP) 
:DA‘’A BUFFER ADDRESS . 
sREAD HEADER AND DATA 


;PREPARE DEVICE FOR TEST 
: TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUMF NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'* OR 'PIP'' IS SET 
‘VERIFY RECALIBRAT ION 

TO 2$ IF NO ERROR 

"RETURN HERE IF. ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 9$ IF ERROR 


001226 MOV #20,$TESTN 
= SETUP PARAME TERS FOR READING LAST SECTOR 

001446 #822. .RMDCO 
001420 mov LSTRK, RMDAO 
001420 MOVB ss #30... 
001444 ‘ MOV entic RAOFO 16 
001414 MOV #-258.,RMWCO «2 
001416 MOV #BUF TWO, RMBAO 
001412 MOV #RH!GO,RMCS10 
: :PREPARE DEVICE FOR DATA TRANSFER 

JSR PC, TSTPRP 

“WORD 154130 

BR 2$ 

NOP 

EMT 

JMP 9$ 


SEQ 0116 


| CZRMNBO RMO5/3/2 FCTINL TST 2 
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| T20 READ HEADER & DATA IN LAST SECTOR SEQ 0117 


NAR se 
—eee —_ 
. 


1410 023312 012702 001553 MOV #PUTINX.R2 :WRITE REGISTER INDEX TABLE 

1411 023314 112722 000006 MOVB  #RMDA. (R2)+ a, 

1412 023322 112722 MOVB  #RMDC.(R2)+ 

1413 023326 112722 000032 MOVB § #RMOF. (R2)+ 

1414 023382 112722 000004 MOVB § #RMBA.(R2)+ 

1415 023336 112722 C00002 MOVB  #RMWC.(R2)+ . 

1416 023342 112722 000000 MOVB  #RMCS1, (R2)+ 

1417 023346 112722 000200 MOVB #200, (R2)+ : TERMINATOR 

1618 023352 3$: . 

1420 :READ HEADER AND DATA OF LAST SECTOR 

1421 023352 004737 036240 JSR PC, PUT {GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
023356 0004 BR TO 4$ IF NO ERROR 
23360 000240 NOP RETURN HERE IF ERROR 
023362 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
023364 000137 023476 JMP 9$ “GO TO 9$ IF ERROR 

1422 023370 4$: 

1424 :SETUP INPUT REGISTER BUFFER FOR READING STATUS 

1425 €23370 004737 035704 JSR PC,GETSTS 

1426 023374 004737 036602 SR PC’ TIMOUT :WAIT FOR READ TO COMPLETE 

1428 023400 004737 035770 JSR PC.GET GO READ REGISTER(S) WITH GET SUBROUTINE 
023404 000404 BR * ies “GO TO 5$ IF NO ERROR 
023406 000240 NOP “RETURN HERE IF ERROR 
023410 104000 EMT “ERROR # DEFINED BY GET SUBROUTINE 
023412 000137 023476 JMP 9$ “GO TO 9% IF ERROR 

1429 023416 5$: 

1431 | ‘VERIFY THE RESULTS OF READ OPERATION 

1432 023416 004737 036766 JSR PC PRIERR =GO CHECK FOR PRIMARY ERRORS 
023422 000405 BR =GO TO 6$ IF NO ERROR 
023424 000240 NOP “RETURN HERE IF ERROR 
023426 104000 EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
023430 004736 JSR PC, a(SP)+ “GO BACK FOR MORE ERROR CHECKS 
023432 000137 023476 yMP «<9 “GO TO 9$ IF ERROR 

1433 023436 6$: 

1434 023436 004737 051502 eee PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
023442 000405 } BR 7$ “GO TO 7$ IF NO ERROR “4 
23444 000240 NOP “RETURN HERE IF ERROR 
023446 104000 EMT “ERROR # DEFINED BY DIASTS SUBROUTINE 
023450 004736 JSR PC.a(SP)+ “GO BACK FOR MORE ERROR CHECKS 
623452 000137 023476 MP 9$ :GO TO 9$ IF ERROR 

1435 023456 7$: 

1436 023456 004737 037620 JSR PC. SECERR :GO CHECK FOR SECONDARY ERRORS 
023462 000405 BR BS “GO TO 8$ IF NO ERROR 
023464 000240 f Nop “RETURN HERE IF ERROR 
023466 104000 fen “ERROR # DEFINED BY SECERR SUBROUTINE 
023470 004736 JSR PC.a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
023472 000137 023476 MP 9$ "GO TO 9$ IF ERROR 

1637 023476 8S: | 

1438 

1439 023476 9$: 

1440 


144] 


Renensmmnnionsns LL AT 


CT ERR ERK KEE EEE KERKEKEKKKEKEKKEKEKEKKEREKEEEKEKEEEKRERE EE ED 


READ HEADER & DATA W/ AOE ERROR 


SRR EEE KEKE EEE EEE EEE KEKE EKER ERE EKER REE EEE ES 


s*TEST 21 


a eee 


SS Se ae 


a ee ee tsetse seater — 
~ =——-—— « - 


aie. 


READ HEADER &@ 


1442 
9%443 
1444 023526 


1450 562 

1451 023570 

1452 

1453 

1454 023576 
023602 


1465 023652 
1464 
1465 023656 


1466 023674 

1467 

1468 

1469 023674 

oy 023700 

1492 023704 
023710 


023712 
023714 


~ZRMNBO RMOS/3/2 FCTNL TST 2 
27 DATA wW/ 


032176 


024002 


035704 
U36602 


035770 


MACRO v04. 0c 4~-4PR-A" 
AOE ERROR 
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sSCOPE CALL 
sSTART OF TES 
Fo hee oT STACK POINTER 
UNIBUS ADDRESS 
tRt) = DEVICE BEING TESTED 
3 SET TEST NUMBER IN APT MAIL BOX 


SECTORS STARTING WITH i AST SECTOR 
:SET LAST TRACK AND 

:LAST SECTOR 
716 BIT FORMAT 


;LAST CYLINDER 

READ 2 SECTORS 

:DATA BUFFER ADDRESS 
sREAD HEADER AND DATA 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
‘CLEAR CONTROLLER & SELECT DEVICE 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF *'SKI’' OR *PIP’’ IS SET 
> ty RE CAL IBRAT ION 

GO TO 2$ IF NO ERROR 
“RETURN HERE IF ERROR 
:ERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 8$ IF ERROR 


sWRITE REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
+ G0 TO 3$ IF NO ERROR 

;RETURN HERE IF ERROR 

:ERROR # DEFINED BY PUT SUBROUT INE 

:GO TO 8$ IF ERROR 


sWAIT FOR READ TO COMPLETE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 4$ IF NO ERROR 

ZRETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


SCOPE 
NoP 
MOV @STACK,SP 
MOV SBASE .RO 
MOV TSTQUE ,R1 
MOV #21, $TESTN 
: SETUP —" T *OR READING 2 
MOV 7RK ,RMDAO 
MOVE #30. .RMDAD 
= MOV #FMTIG.RMOFO | 
MOV #822. ,.RMDCO 
MOV #-258.*2,RMWCO 
MOV #BUF TWO, RMBAO 
MOV #RH'GO, RMCS10 
sPREPARE DEVICE FOR DATA TRANSFER 
JSR 4 5 TSTPRP 
. WORD 154130 
BR 2$ 
NOP 
EMT 
: JMP &$ 
2$: 
MOV #PUTINX,R2 
MOVB #RMDA, (R2)+ 
MOVB MREDT, (R2)+ 
MOVB #RMOF ,(R2)+ 
MOVB #RMWC , (RZ) + 
MOVB #RMBA, (R2)+ 
MOVB PRMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC ,PuT 
BR 3$ 
NOP 
EMT 
JMP &$ 
3$: 
7SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC GETSTS 
JSR PC, TIMOUT 
JSR PC GET 
BR 4$ 
NOP 
EMT 


ee ee ee ee + 


—- — 


. 


*ZJRMNBO RMOS/3/2 FCTNL TST 2 
Te READ HEADER & DATA w/ AOE ERROR 
023716 000137 024002 
1473 023722 
1476 
1475 
1476 923722 04737 036766 
023726 00040 
023730 000240 
023732 1040900 
23734 004736 
23 000137 024002 
1477 623742 
1478 023742 004737 051502 
23746 00040 
023750 000240 
023752 104000 
023754 004736 
23756 000137 02400? 
1479 023762 
1480 023762 0064737 037620 
C23766 000405 
023770 000240 
023772 104 
023774 004736 ) 
23776 000137 . 024002 
1481 024002 
1482 
1483 024002 
1484 
1485 
024002 
024002 000004 
024004 000240 
24006 012706 001100 
024012 013700 001276 
024016 013701 001466 
024022 012737 22 001226 
1487 024030 012737 000000 001446 
1488 024036 012737 000036 001420 
1489 024044 012737 000000 001444 
1490 024052 012737 101360 001416 
1491 024060 012737 177376 001414 
1492 024066 012737 000073 001412 
1493 024074 
1494 
1495 
1496 024074 004737 032176 
024100 154130 


6$: 


J™P 
4$: 
ZVERIFY THE 
JSR 
BR 


NOP 

EMT 

JSR 

JMP 
S$: 


7$: 
8$: 


&$ 
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369 TO 8$ IF ERROR 


RESULTS RY a OPERATION 
PC ,PRIERR 


‘— CHECK FOR PRIMARY ERRORS 
O TO 5$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 

:GO BACK FOR MORE ERROR CHECKS 

:GO TO &$ IF ERROR 


= VERIFY RESULTS OF DATA TRANSFER 
TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 

:GO BACK FOR MORE ERROR CHECKS 

:GO TO 8$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 7$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY SECERR SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 

:GO TO 8$ IF ERROR 


PC a(SP)+ 
8$ 


PC,DTASTS 
6$ 


PC, a@(SP)+ 
8$ 


PC,SECERR 
7$ 


PC,a@(SP)+ 
&$ ; 


. -fadeeeneehedesdeeee beendeeeeensebedeneneewanéeoeeereceaecesones 


Z*TEST 22 


READ INVALID SECTOR ADDRESS 


SRR ERASER EE EAE KKEKAEKKEE 


T$122: 


1$: 

SPREPARE DEVICE 
JSR: - 
. WORD 


:SCOPE CALL 
sSTART OF TEST 


#STACK,SP - INITIALIZE STACK POINTER 
SBASE .RO -RO = UNIBUS ADDRESS 

TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 

#22, $TESTN -:SET TEST NUMBER IN APT MAIL BOX 
#0.RMDCO : CYLINDER = 0 | 
#30. .RMDAO : TRACK = 0, INVALID SECTOR = 30. 
#0, RMOF O °18 BIT FORMAT 

#BUFONE,RMBAO :CHANGE BUS ADDRESS 

#-258. ,RMWCO + 256 WORDS (2'S COMP) 


:2 
#RH'GO,RMCS1O  ;READ HEADER AND DATA 


FOR DATA TRANSFER 
PC, TSTPRP 
154130 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 

; VERIFY PACK ACKNOWLEDGE 

SRECALIBRATE iF “‘SKI"' OR ‘PIP*’’ IS SET 

; VERIFY RECALIBRAT ION 


S| aa RMOS/3/2 FCTNL TST 2 


READ INVALID SECTOR ADDRESS 


024102 
024104 


1506 024144 


024172 


024176 


1570 
1511 
1512 
1513 024172 
1514 
1515 
1516 024202 


004737 


035704 
036602 


035770 
024344 


026766 


024 344 
051502 


024344 
037620 


024344 
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BR 2$ :GO TO 2$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 


- JMP 9$ 3;GO TO 9S JF ERROR 
;SETUP AND EXECUTE READ HEADER AND DATA COMMAND 
MOV #PUTINKX,R2 ;LOAD REGISTER INDEX TABLE 
MOVB #RMDA, (R2)+ 
MOVB #RMDC. (R2)+ 
MOVB #RMOF ,(R2)+ 
MOVB MRMWC , (R2) + 
MOVB #RMBA, (R2)+ 
MOVB #RMCS1, (R2)+ 
MOVB #290, (R2)+ ;SET TERMINATOR BYTE 
JSR PC ,PuT ‘= ee ae REGISTER(S) WITH PUT SUBROUTINE 
BR 3$ O 3$ IF NO ERROR 
NOP ‘Re TURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PUT SUBROUTINE 
ss JMP 9$ :GO TO 9$ IF ERROR 


: SETUP a a wie oa — FOR READING STATUS 
J -GET 
;WAIT FOR COMMAND TO COMPLETE 


JSR PC, TIMOUT 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 4$ :GO TO 4$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 


JMP 9$ -GO TO 9$ IF ERROR 

4¢: 

:VERIFY RESULTS OF READ COMMAND | 
ISR PC PRIERR =GO CHECK FOR PRIMARY ERRORS | 
BR 5$ -GO TO 5$ IF NO ERROR | 
NOP *RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTIN 
JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

MP $ -GO TO 9$ IF ERROR 
JSR PC DTASTS ;60 VERIFY RESULTS OF DATA TRANSFER 
BR 6$ 0 TO 6$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT: “ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC a(SP)+ -GO BACK FOR MORE ERROR CHECKS 

a jMP 9$ -GO TO 9$ IF ERROR 
JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 7$ “GO TO 7$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT “ERPOR # DEFINED BY SECERR SUBROUTINE 
JSR PCa(SP)+ -GO BACK FOR MORE ERROR CHECKS 

re IMP 9$ =GO TO 9$ IF ERROR 


— SS RS ee 


CZRMNBO RMO5/3/2 FCINL TST 2 
READ INVALID SECTOR ADDRESS 


Tee 


od 
wi 
Mw 


Wun 


024312 
024314 


024442 


024442 
024446 


024450 


012737 


012737 
0137357 


012737 


004737 
154130 


000404 
000240 


C01420 
001420 


010000 


000040 
010000 
024074 


0011400 
001276 
001466 
000023 


101360 
000073 


032176 


024666 


001553 
06 
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0001006 


001444 


001420 
001444 


001226 


001446 
007420 


001444 
001414 
001416 
001412 


: INCREMENT ADDRESS AND READ NEXT SECTOR 
RMDAO 


sADVANCE SECTOR COUNT 


sDONE ALL SECTORS?? 
:NO !! 


a 16 BIT MODE YET ? 


TRACK = 0, INVALID SECTOR = 32. 
7SET 16 BIT MODE IN OFFSET AND 


:TEST AGAIN. 


. CTT AAR TREE AREA AEE EEE REARS 


READ INVALID TRACK ADDRESS 


e STARA RAR REARS EEE AREER EEE RARE ee 


sSCOPE CALL 
¢ START OF TEST 


‘INITIALIZE STACK POINTER 
UNIBUS ADDRESS 
=(R1) DEVICE BEING TESTED 
> SET TEST NUMBER IN APT MAIL BOX 


;CYLINDER = 0 

;LOAD LAST TRACK, SECTOR = 0 

: INCREMENT TO FIRST INVALID TRACK 
316 BIT FORMAT 

:2 + 256 WORDS (2°S COMP) 

;DATA BUFFER ADDRESS 

sREAD HEADER AND DATA 


sPREPARE DEVICE FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS: 
>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION. 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
s VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF “'SKI"' OR 'PIP'' IS SET 
hy ag RE CAL IBRATION 

TO 2$ IF NO cpa 
‘RETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 8$ IF ERROR 


COMMAND 
;LOAD REGISTER INDEX TABLE 


INC 
CMP RMDAO , #64. 
BLOS 8$ 
BIT #FMT16,RMOFO 
BNE 9$ 
MOV #32. ,RMDAO 
MOV #FMT16,RMOFO 

83: JMP 1$ 

9$: 

TeTEST 23 

TS123: 
SCOPE 
NOP 
MOV MSTACK,SP 
MOV $BASE ,RO 
MOV TSTQUE ,R1 
MOV #23. $TESTN 
MOV #0,RMDCO 
MOV LSTRK,RMDAO 
INCB RMDAO+1 
MOV #FMT16,RMOFO 
MOV #-258. ,.RMWCO 
MOV #BUF ONE ,RMBAO 

- MOV #RH!GO,RMCS10 

ZPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP 
.WwORD 154130 
BR 2$ 
NOP 
EMT 
JMP 8$ 

es: 

SETUP AND EXECUTE vias HEADER AND DATA C 
MOV MPUTINKX,R2 

MOVB eA. (Rod + 
MOVB #RMDC.. (RO) + 
MOVB #RMOF , (R2) + 
MOVB #RMWC , (RO) + 
MOVB #RMBA, (R2)+ 
MOVR ARMS, (Ro) + 


ST Se Re niet eeearse 
LL 


SEQ 0127 


4 


te at ee ed oe 
SEBwwOwS 


~~ 
WIV 
83 


S| aa RMO5/3/2 FCTINL TST 2 
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READ INVALID TRACK ADDRESS 


3 024516 


024540 
024540 
024544 
024550 


024666 
024666 
924670 
024672 


112722 
004737 
04 


000004 
000240 
012706 


000209 
036240 


024666 
035704 
036602 
035770 


024666 


056766 


024666 
051502 


024666 
037620 


024666 


001421 
001421 


024442 


001100 





“OVB #200, (R2)¢ 7SET TERMINATOR BYTE 
JSR PC Put ‘= bg REGISTER(S) WITH PUT SUBROUTINE 
ioiad 3$ O 3$ IF NO ERROR 
NOP ‘RETURN HERE JF ERROR 
EMT sERROR # DEFINED BY PUT SUBROUTINE 

5 JMP 8S , :GO TO 8$ IF ERROR 

3: SETUP eo ses FOR READING STATUS 
+eR PC, TIMOUT zWAIT FOR COMMAND TO COMPLETE 
JSR PC GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 4$ :GO TO 4$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT - ERROR # DEFINED BY GET SUBROUTINE 

“a JMP 8$ :G0 TO 8$ IF ERROR 

VERIFY RESULTS OF READ COMMAND 
JSR PC ,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
BR 5$ :GO TO 5$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ZERROR #4 DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 

es JMP 8$ :G0 TO 8$ IF ERROR 
JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY DTASTS SUBROUTINE 
J5R PC,@{(SP)+ :GO BACK FOR MORE ERROR CHECKS 

‘ JMP 8$ :GO TO 8$ IF ERROR 

3: 
JSR PC SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 7$ :GO TO 7$ IF NO ERROR 
NOP > RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC, @(SP)+ :GO BACK FOR MORE ERROR CHECKS 

JMP 8$ :GO TO 8$ IF ERROR 


7 INCREMENT ADDRESS poi READ NEXT TRACK 
INCB RMDAQ+1 : ADVANCE TRACK COUNT 


000200 (MPR RMD AO+1 #128. et /ALL TRACKS?? 
BH] 8$ YES! 
JMP 1$ G0 66 NEXT TRACK 
BS: 
. CREOSOTE REET RARER ERR EAREEEAR AERA REERAEA AERA REE ED 
SeTEST 24 READ INVALID CYLINDER ADDRESS 
° SRST OORT ETE REAR E RET ERE KEE EREKHREEAEAEEEREKKERAREE KER ee 
S124: 
SCOPE :SCOPE CALL 


sSTART OF TEST 


NOP 
MOV @STACK ,SP ZINITIALIZE STACK POINTER 


Se eh SD i ee er et ein dni singin one SO a eee + ee ee 2 eee eee —- 


SEQ 07 


LS 
ee sere SR -shpseaemee 


CZRMNBY RMO5/3/2 FCINL TST 2 
c READ INVALID CYLINDER ADDRE ss 


024760 


024760 
024764 


025062 


004737 
154130 


004737 
004737 


004737 


001276 


032176 


025204 


001553 


000200 
036240 


025204 


035704 
036602 


035770 


025204 


MACR 


001226 


w a 


G 10 
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;RO = UNIBUS ADDRESS 


;(R1) = DEVICE BEING TESTED 
:3SET TEST NUMBER IN APT MAIi BOX 


sSTART AT FIRST INVALID CYLINDER 
TRACK = 0, SECTOR = 0 

:16 BIT FORMAT 

72 + 256 WORDS (2°S COMP) 

iDATA BUFFER ADDRESS 

sREAD HEADER AND DATA 


sPREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
>VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF *'SKI’’ OR 'PIP’’ IS SET 
: VERIFY RECALIBRATION 

:GO TO 2$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 8$ IF ERROR 


OMMAND 
;LOAD REGISTER INDEX TABLE 


:SET TERMINATOR BYTE 


;GO WRITE an tees WITH PUT SUBROUTINE 
:GO TO 3$ IF NO ERROR 

>RETURN HERE IF ERROR 

:ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 8$ IF ERROR 


;WAIT FOR COMMAND TO COMPLETE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 4$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


04.900 4-A4PR=-R? 
MOY SBASE ,RO 
MOV TSTQUE ,R1 
MOV #24 ,STESTN 
MOV #823. ,RMDCO 
MOV #0,RMDAO 
MOV #FMTI6,RMOFO | 
MOV #8UF ONE ,RMBAO 
- M0'V #R'4!GO,RMCS10 
SPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP 
. WORD 1§4130 
BR: 2% 
NOP 
EMT 
JMP 8$ 
es: 
:SETUP AND EXECUTE READ HEADER AND DATA C 
MOV #PUTINXK,R2 
MOVB #RMDA, (R2)+ 
MOVB #RMDC,(R2)+ 
MOVB #RMOF ,(R2)+ 
MOVS ARMWC, (R2) + 
MOVB #RMBA.(R2)+ 
MOVB MRMCS1,(R2)¢ 
MOVB #200, (R2)+ 
JSR PC Put 
BR 3$ 
NOP 
EMT 
JMP 8$ 
3$: 
7SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC ,GETSTS 
3eR PC,TIMOuUT 
JSR PC GET 
BR 4$ 
NOP 
EMT 
IMP 8$ 


4$: 


:VERIFY RESULTS OF READ COMMAND 


oe ee re ee ee 


:GO TO 8% IF ERROR 


ci ——— ~~ ee ~ 
. 


"625 


025104 


G 
025164 


025164 


025204 


025204 


2 025232 


004737 
0004 


005237 
023727 
002002 
000137 


000004 


012737 
012737 


St aces RMOS/3/2 FCINL TST 2 
READ INVALID CYLINDER ADD 


036 766, 


025204 
951502 


025204 
037620 


025204 


001446 
001446 


024760 


001100 
001276 
007466 
000025 


000000 


033752 
063346 
026116 


061420 
000001 





MACRO 
RES 


wre) 


. 
ct 


002000 


001226 


001446 
001420 
001444 
001414 
001416 
001412 


‘= CHECK FOR PRIMARY ERRORS 
Oo TO 5$ IF NO ERROR 
‘RE TURN HERE IF ERROR 


sERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 8$ JF ERROR 


:GO nie. RESULTS OF DATA TRANSFER 
:GO TO 6% IF NO ERROR 
‘RETURN HERE IF ERROR 
sERROR # DEFINED BY DTASTS SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
:GO TO 8$ IF ERROR 


;GO CHECK FOR SECONDARY ERRORS 

:GO TO 7$ IF NO ERROR 

ZRETURN HERE IF ERROR 

ZERROR # DEFINED BY SECERR SUBROUTINE 
3;GO BACK FOR MORE ERROR CHECKS 

:GO TO 8$ IF ERROR 


ADVANCE CYLINDER COUNT 
:DONE ALL CYLINDERS?? 


:GO DO NEXT SECTOR 


e SROKA EER KERR HEREREREERERE & 


$ CRRA EEE EERE ERE AEE EERE EEE KERR EEE 


sSCOPE CALL 
:START OF TEST 


a a -—— 


s INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 
s (RI) = DEVICE BEING TESTED 
:SET TEST NUMBER IN APT MAIL BOX 


;CYLINDER = Q 
TRACK = 0, SECTOR = 0 
FORMAT 


:16 BIT 

:2 + 256 WORDS (2"S COMP) 

;DATA BUFFER ADDRESS 

;WRITE HEADER AND DATA 

:CALL BAD SECTOR MODULE 

:GO TO 1$ IF NO ERROR 

:TYPE BAD SECTOR MESSAGE 

;ERROR # DEFINED BY BADSCT SUBROUTINE 
:GO TO 17$ IF ERROR 


sUSE SECTOR FOR DATA PATTERN 


258 PC ,PRIERR 
otal 5$ 
NOP 
em. 
JSR PC a(SP)-« 
JMP 8$ 
S$: 
JSR PC DTASTS 
AR 6$ 
NOP 
EMT 
JSR PC ,a( SP) 
. JMP 8$ 
43: 
JSR PC, SECERR 
etal 7$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP &$ 
7$: 
Z INCREMENT ADDRESS AND READ NEXT CYLINDER 
INC RMDCO 
CMP RMDCO, #1024, 
BGE 8$ 
JMP 1$ 
R$: 
T*TEST 25 FORMAT AT OFFSET 
1S725: 
SCOPE 
NOP 
MOV MSTACK,SP 
MOV SBASE RO 
MOV TSTQUE ,R1 
MOV #25, $TESTN 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV #0,RMDCO 
MOV #0,RMDAO 
MOV #FMT16, RMOF O 
MOV #-258. ,RMWCO 
MOV #BUFONE,RMBAO . 
MOV #WH!GO,RMCS10 
VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 
BR. 1 
TYPE ~SCTMSG 
EMT 
- JMP 17$ 
MOY #RMDAO, alae 
MOV #1 ,$TMP 


——s. 


I 10 
-DRMNBO RMOS/3/2 FCTNL TST 2 MACRO ¥04.00 G=APR-81 11:43:33 PAGE 13-56 


—_——— 
ee ee eR serene renee 


FORMAT AT OFFSET 


925332 004737 035704 _SR PC, GENBUF 3GO GENERATE DATA BUFFER 
025336 24: 
PREPARE DEVICE FOR DATA TRANSFER 
925336 904737 0321764 JSR PC, Lae s;PREPARE DEVICE FOR TEST 
025342 1546730 WORD 152130 : TASK DESCRIPTOR AS FOLLOW 
: *SELECT DEVICE & VERIFY DEVICE AVAILABLE 
= CLEAR CONTROLLER & SELECT DEVICE 
7VERIFY CONTROLLER CLEAR OPERATION 
3;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
ZRECALIBRATE IF ‘’SKI*’ OR ‘PIP’' IS SE? 
; VERIFY RECALIBRATION 
025544 000404 BR 3$ *GO TO 3$ IF NO ERROR 
025346 000240 NOP “RETURN HERE IF ERROR 
025350 104000 EMT ZERROR # DEFINED BY TSTPRP SUBROUTINE 
025352 000137 0626116 MP 17% -GO TO 17$ IF ERROR 
025356 3$: 
ZOFFSET DEVICE FOR WRITE 
025356 012737 000015 001412 MOV MOF FSET‘ GO,RMCS10 7 CHANGE TO OFFSET COMMAND 
025364 012702 001553 MOV #PUTINX,R2 sWRITE PUT INDEX TABLE 
025370 112722 000006 MOVB #RMDA, (R2)+ 
025374 112722 000034 MOVB ARMDC.(R2)+ 
025400 112722 000032 MOVB ARMOF , (R2)+ 
025404 112722 000000 MOVB BRMCS1,(R2)+ 
025410 112712 000200 MOVB #200, (R2) ; TERMINATE TABLE 
025414 004737 036240 JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SURROUTINE 
025420 000404 BR 4$ :GO TO 4$ IF NO ERROR 
025422 000240 NOP RETURN FERE IF ERROR 
025424 104000 EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
025426 000137 026116 JMP 17% :GO TO 17% IF ERROR 
025432 4$: 
SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND AT OFFSET | 
025432 012737 000063 001412 MOV M#WH'GO,RMCS10 ;WRITE HEADER AND DATA COMMAND 
025440 012702 001553 ~~ MOV MPUTINX,R2 sWRITE REGISTER INDEX TABLE 
025444 112722 000002 MOVB ARMWC, (R2) + 
025450 112722 000004 -MOVB ARMBA, (R2)+ 
025454 112722 000000 MOVB #RMCS1.(R2)+ 
025460 112722 000200 MOVB #200, (R2)+ 
025464 004737 036240 JSR PC ,PuT “60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
025470 000404 BR 5$ :GO TO 5$ IF NO ERROR 
025472 000240 NOP “RETURN HERE IF ERROR 
025474 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
025476 000137 026116 JMP 17$ :GO TO 17$ IF ERROR 
0255902 St: 
SSETUP INPUT REGISTER BUFFER FOR READING STATUS 
025502 004737 035704 JSR PC,GETSTS 
025506 004737 036602 JSR PC, TIMOQUT ;WAIT FOR COMMAND TO COMPLETE 
025512 004737 035770 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
025516 000494 BR 6$ :GO0 TO 6% IF NO ERROR 


025520 000240 NOP :RETURN HERE IF ERROR 


[~ A 
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125 «FORMAT AT OFFSET : en Btn 


025522 104000 EMT SERROR # DEFINED BY GET SUBROUTINE 
025524 000137 (€26776 JMP 17% 3G0 70 17$ IF ERROR 

i 025530 6$: 

1690 VERIFY RESULTS OF WRITE COMMAND 

1691 025530 004737 036766 J$& PC,PRIERR 3;GO CHECK FOR PRIMARY ERRORS 
025534 000405 4G 7$ _ 3GO0 TO 7$ IF NO ERROR 
025536 000240 NOP sRETURN HERE IF ERROR 
025540 104000 EMT = ERROR # DEFINED BY PRIERR SUBROUTINE 
025542 004736 JSR PC ,a(SP)+¢ 3;GO BACK FOR MORE ERROR CHECKS 
025544 000137 026116 JMP 17$ :GO0 TO 17$ IF ERROR 

1692 025550 : 7$: 

1693 025550 0u6737 051502 JSR PC ,DTASTS os VERIFY RESULTS OF DATA TRANSFER 
025554 000405 BR 8$ O TO 8$ IF NO ERROR 
025556 000240 : NOP ‘RETURN HERE IF ERROR 
025560 104000 EMT “ERROR # DEFINED BY DTASTS SUBROUTINE 
025562 004736 JSR PC .@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 

55 000137 026116 JMP 17$ :GO TO 17$ IF ERROR 

1694 025570 8$: 

1695 C25570 004737 0637620 JSR PC, SECERR 3;GO CHECK FOR SECONDARY ERRORS 
025574 000405 By 9$ :GO TO 9$ IF NO ERROR 
025576 000240 NOP ;RETURN HERE IF ERROR 
025600 104000 EMT Z;ERROR # DEFINED BY SECERR SUBROUTINE 
025602 004736 JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
025604 0001357 026116 JMP 17$ 3GO TO 17$ IF ERROR 

1696 025610 9$: 

1697 sOFFSET DEVICE FOR READ 


1698 025610 012737 000015 001412 MOV MOF FSET!GO,RMCS10 ; CHANGE TO OFFSET COMMAND 

1699 025616 012702 001553 MOV MPUTINX,R2 iWRITE PUT INDEX TABLE 

1700 025622 112722 000006 MOVB  #RMDA, (R2)+ 

1701 025626 112722 000034 MOVB  #RMDC; (RO) + 

1702 025632 112722 000032 MOVB  #RMOF . (R2)+ 

1703 025636 112722 000000 MOVB  #RMCS1,(R2)+ 

1704 025642 112722 000200 MOVB #200, (R2)+ 

1706 025646 004737 036240 JSR PC,PuT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
025652 000404 BR 108 :GO TO 10$ IF NO ERROR 
025654 000240 NOP ;RETURN HERE IF ERROR 
025656 194000 "aT 7 sERROR # DEFINED SY PUT SUBROUTINE 
025660 000137 026116 IMP s«178 :GO TO 17 IF ERROR 

1707 025664 108: 

1708 

1709 

1710 :READ HEADER AND DATA AT OFFSET 

1711 025664 012737 000073 001412 MOV MRH'GO,RMCS1O ;READ HEADER & DATA COMMAND 

1712 025672 012737 102364 001416 MOV ABUFTWO,RMBAO ©: CHANGE BUS ADDRESS 

1713 025790 012702 001553 MOV #PUTINX,R2 sWRITE PUT INDEX TABLE . 

1714 025704 112722 000002 MOVB = #RMWC, (R2)+ : 

1715 025710 112722 000004 MOVB = #RMBA(R2)+ : 

1716 025714 112722 000000 MOVB —- #RMCS1, (R2) + 

1717 025720 112722 000200 MOVB #200, (R2)+ 

1719 025724 004737 036240 JSR —- PC, PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
025730 000404 BR 11§ G0 T0118 IF NO ERROR 
025732 000240 NOP RETURN HERE IF ERROR 
025734 104000 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
025736 000137 026116 IMP «178 GO TO 17$ IF ERROR 





CZRMNBO RMOS/5/2 FCTNL TST 2 
T25 FORMAT AT OFFSET 


720 025742 
27 
2e 
723 025742 
724 
25 025746 


1744 026116 
17 
1746 


Ae 


026116 
026116 
026120 


— 
S »~ 
on oo 
cs 
3 


004737 


104000 
004736 


004737 
000405 
000240 


104000 
004736 
000137 


00004 
000240 


036602 
035770 


026116 


036766 


026116 
051502 


026116 
037620 


026116 


035342 


026116 
000200 
000200 


101360 
025336 


K 10 
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001444 


001444 
001416 


1$: 


sWwAIT FOR READ TO geht AND GET STATUS 
JSR PC, TIMOUT 


JSR PC GE? 


;WAIT FOR READ TO COMPLETE 


;GO READ gig yt} WITH GET SUBROUTINE 
;GO TO 12$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

;GO TO 17$ IF ERROR 


a CHECK FOR PRIMARY ERRORS 
O TO 13$ IF NO ERROR 

“RETURN HERE IF ERROR 

;ERROR # DEFINED BY PRIERR SUBROUTINE 

:GO BACK_FOR MORE ERROR CHECKS 

;GO TO 17$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 14$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK_FOR MORE ERROR CHECKS 

:GO TO 17$ IF ERROR 


;GO CHECK FOR SECONDARY ERRORS 
:GO TO 15$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROF # DEFINED BY SECERR SUBROUTINE 
:GO BACK_FOR MORE ERROR CHECKS 

:GO TO 17$ IF ERROR 


:GO COMPARE WRITE, READ DATA BUFFERS 
sSTARTING ADDRESS OF WRITE BUFFER 
:STARTING ADDRESS OF READ BUFFER 

:GO TO 16$ IF NO ERROR 

sRETURN HERE IF ERROR 

:ERROR # DEFINED BY CMPBUF SUBROUTINE 
:GO TO 17$ IF ERROR 


veer! BOTH OFFSETS?? 


;SET FORWARD OFFSET 
; CHANGE DATA BUFFER 


e CREEK AERA EAE ERATE REAR RRR ERERRE EEE 


BR 12$ 
NOP 
EMT 
JMP 173 

128: 

VERIFY THE RESULTS OF _ OPERATION 
JSR PC,PRIERR 
mR 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMpP 17$ 

13$: 
JSR PC ,DTASTS 
BR 14$ 
NOP 
EMT 
JSR PC ,a@(SP)+ 
JMP 17$ 

14%: 
JSR PC,SECERR 
BR 15$ 
NOP 
EMT 
JSR PC a(SP)+ 
JMP 179% 

15$: 

- VERIFY DATA 
JSR PC, CMPBUF 
-WORD BUFONE 
-WORD SUF TWO 
BR 16$ 
NOP 
EMT 
JMP 17¢ 

16$: 
BIT #0! OO, RMOFO 
BNE 17$ 
BIS 40! ),2MOFO 
MOV ASU! UNE ,RMBAO 
JMP 2$ 

17$: 

= *TEST 26 IVC FORMAT TEST 


STARE AA RARER ATER TEETER ARATE REE 


15126: 


SCOPE 
NOP 


;SCOPE CALL 
;START OF TEST 


EOL OE OE TT ee ee he Oe ere ee 


SEQ Q1 


———— ~~. 


CZ RMNBO RMO5/3/2 FCTINL TST 2 
726 IvC FORMAT TEST 


1 

1768 
1769 
toy 


1772 


1773 
1774 
1775 
1776 
1777 
1778 


02612e 


36 
026244 
026250 


026250 
026254 


026256 
026260 


026262 


026264 
026270 
026270 
026276 
026304 


Ocoee 
026316 


026324 
026330 
026330 


026336 
026344 


012737 
012737 
004737 


004737 
154130 


000404 
M4 
2737 
2 


737 
004737 
04 


001100 
G01276 
001466 
000026 
900000 
000000 
010000 
177376 
101360 
000062 
033152 
063346 
026740 
001420 


000001 
035104 


032176 


026740 


000001 
000024 
000200 


036240 
026740 


000063 
000000 
001553 


L 
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001226 


001412 


001436 
001553 
001554 


MOV @STACK,SP INITIALIZE STACK POINTER 
MOV SBASE.R ;RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 [(R1) = DEVICE BEING TESTED 
MOV #26,$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
SETUP PARAMETERS FOR SEMERATING DATA BUFFER 
MOV #0,.RMDCO YLINDER = 0 
MOV #0, RMDAO TRACK = 0 SECTOR = 0 
MOV #FMT16,RMOFO 716 BIT FORMAT 
MOV #-258. ,RMWCO 72 + 256 WORDS (2'S COMP) 
MOV #BUFONE,RMBAO :DATA BUFFER ADDRESS 
MO\ #WH,RMCS10 :WRITE HEADER AND DATA 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,RADSCT :CALL BAD SECTOR MODULE 
BR 1 :GO TO 1$ IF NO ERROR 
TYPE ,SCTMSG : TYPE BAD SECTOR MESSAGE 
EMT “ERROR # DEFINED BY BADSCT SUBROUTINE 
- JMP 16$ 7GO TO 16$ IF ERROR 
MOV ARMDAO, $STMPO :USE SECTOR FOR DATA PATTERN 
MOV #1. $TMP1 
si JSR PC, GENBUF :GO GENERATE DATA BUFFER 
:PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP PREPARE DEVICE FOR TEST 
.WORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
7CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘‘SKI'' OR ‘PIP’' IS SET 
‘VERIFY RECAL IBRATION 
BR 3$ O TO 3$ IF NO ERROR 
NOP s RETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
. JMP 16$ “GO TO 16$ IF ERROR 
RESET VOLUME VALID BY SETTING AND RESETTING DIAGNOSTIC MODE 
MOV DMD , RMMR10 :SET DIAGNOSTIC MODE 
MOVB #RMMR1,PUTINX  <:WRITE REGISTER INDEX TABLE 
MOVB #200, PUT INX+1 ‘ 
JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUT INE 
BR 4$ :GO TO 4$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY PUT SUBROUTINE 
Ja JMP 16$ :GO TO 16% IF ERROR 
SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND ° 
MOV #WH!GO,RMCS zWRITE HEADER AND DATA 
MOV #0,RMMR10 :RESET DIAGNOSTIC MODE 
MOV #PUTINX,R2 “WRITE REGISTER INDEX TABLE 


— RMOS/3/2 FCINL TST 2 


IVC FORMAT TEST 


026350 


026550 


026550 
026554 


026556 
026560 


000404 


604737 
040100 


000404 
000240 


036240 


026740 


035704 
036602 


035770 


026740 


056766 


026740 
010000 


C01400 
001400 
010000 


037620 


026740 


032176 


MACRO V04.00 


001400 


001142 
001140 
001140 


S~APR-B1 11:43:33 PAGE 


M10 
13- 


58 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 5$ IF NO ERROR 
;RETURN HERE IF ERROR 


sERROR # DEFINED BY PUT SUBROUTINE 
;GO TO 16$ IF ERROR 


sWAIT FOR COMMAND TO COMPLETE 


+ GO READ REGISTER(S) WITH GET SUBROUTINE 
TO 6$ IF NO ERROR 

“ RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


:GO TO 16$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 7$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 16$ IF ERROR 


Fei STATUS SET?? 


SRECEIVED STATUS FOR TYPEOUT 
sEXPECTED STATUS 


:GO CHECK FOR SECONDARY ERRORS 
;GO TO 9$ IF NO ERROR 
:RETURN HERE IF ER 


ROR 
sERROR # DEFINED BY SECERR SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 
:GO TO 16$ IF ERROR 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 
sCLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
:GO TO 10$ IF NO ERROR 


MOVB #RMMR1,(R2) + 
MOVS #RMDA, (R2)+ 
MOVB MRMDC,(R2)+ 
MOVB ARMOF , (R2)+ 
MOVB ARMWC , (R2) + 
MOVB #RMBA , (R2) + 
MOVB ARMCS1,(R2) + 
MOVB #200, (R2)+ 
JSR PC PUT 
BR 5$ 
NOP 
EMT 
JMP 16$ 

5$: 

7SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR ~GETSTS 
JSR PC,TIMOUT 
JSR PC,GET 
BR 6$ 
NOP 
EMT 
JMP 16$ 

6$: : 

7; VERIFY RESULTS OF WRITE COMMAND 
JSR PC, PRIERR 
BR 7$ 
NOP 
EMT 
JSR PC ,@(SP)+ 
JMP 16$ 

7$: 
BIT #IVC,RMER2ZI 
BNE &$ 
MOV RMER21 , $BDDAT 
MOV RMER21,$GDDAT 
BIS AMIVC,S$GDDAT 
EMT 342 

8$: 
JSR PC ,SECERR 
BR 9$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 16$ 

9$: 

CLEAR IVC ERROR 
JSR PC,TSTPRP 
. WORD 040100 
BR 10$ 
NOP 





;RETURN HERE IF ERROR 


CZRANGO RMO5/3/2 FCINL TST 2 
126 IvC FORMAT TEST 


opens 
026564 
026570 


1813 

1814 

1815 

1816 026570 
1817 026576 
1818 
1819 


1823 0266 


—~ 3 —3 5 3 4 2 
00 00 00 00 Oo 00 Co 09 Oo 
RAR WR 
OOoOo0o 
Looe Nm 
Ses 
= a | 
oS 


WUIW 
Co 
S39 
Oo 
a | 
Nm 
7 


026744 


104000 
000157 


012737 
012757 


004737 
0004 

000240 
104000 
000137 


004737 
004737 


104342 
004737 


004736 


0 
012706 


26740 


000073 
102364 


036240 
026740 


035704 
036602 


035770 
026740 


036766 


026740 
010000 
001400 


001400 
010000 


037620 


001100 
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001412 
001416 


001400 
001142 


001140¢* 


001140 


EMT 


:GO BACK 
:GO TO 16% IF ERROR 


sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 16$ IF ERROR 


sREAD HEADER & DATA COMMAND 
; CHANGE BUS ADDRESS 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 11$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 1$$ IF ERROR 


;WAIT FOR READ TO COMPLETE 


:GO oe REGISTER(S) WITH GET SUBROUTINE 
:GO TO 12$, IF NO ERROR 
;RETURN HERE IF €RROR 


;ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 16€ IF ERROR 


;GO CHECK FOR PRIMARY ERRORS 
:GO TO 13$ IF NO ERROR 


:RETURN HERE IF ERROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 


FOR MORE ERROR CHECKS 


IS Ive STATUS SET?? 
YES! 


‘RECEIVED STATUS FOR TYPEQUT 
sEXPECTED STATUS 


:GO CHECK FOR SECONDARY ERRORS 


;GO TO 15$ IF NO ERROR 


sRETURN HERE IF ERROR 


sERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 


Pie Setls ERECTA EE RKO KEEKEKEEEKEEKEKEKEEEEE 


wt 222222 eee eee eERRRARRARSSSAARSSLARAASSSSASSRSSSSS SESS ESSER SSS SS 


ASTACK,SP 





—_—-—--— 


sSCOPE CALL 
sSTART OF TEST 
s INITIALIZE STACK POINTER 


JMP 16$ 
10$: . 
sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV #RH!GO,RMCS10 
MOV #BUF TWO, RMBAO 
JSR PC,PuT 
R 113 
NOP 
EMT 
JMP 16$ 
11$: 
> SETUP ey daa be i FOR READING STATUS 
JSR - PC, TIMOUT 
JSR PC,GET 
BR 12$ 
NOP 
EMT 
JMP 16$ 
12$: 
:VERIFY THE RESULTS OF READ OPERATION 
JSR PC,PRIERR 
BR 13$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 16$ 
13$: 
BIT #IVC,RMERZ2Z] 
BNE 14$ 
MOV RMER21,$BDDAT 
MOV RMER21,$GDDAT 
BIS AIVC,SGDDAT 
EMT 342 
14$: 
JSR PC,SECERR 
RR 15$ 
NOP 
EMT 
JSR PC,@(SP)+ 
15$: 
16$: 
TEST 27 FORMAT ERROR TEST 
TST27: 
SCOPE 
NOP 
MOV 





———— AAS eRe tet ree sneer mene 


SEQ 0130 


Bi 
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eS: <TR: 


\ eee ee ee 


2” T ERROR TEST SEQ 0137 
026750 013 901276 MOV $BASE RO :RO = UNIBUS ADDRESS 
026754 013701 (601466 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
; 026760 012737 000027 001226 MOV #27, $TESTN >:SET TEST NUMBER IN APT MAIL BOX 
. = SETUP PARAME TERS FOR GENERATING DATA BUFFER 
? 026766 012737 000000 001446 #0,RMDCO ZCYLINDER = 0 
1848 026774 012737 000000 001420 mo #0.RMDAO ; TRACK = 0, SECTOR = O 
1849 027002 012737 000000 001444 MOV #0. RMOF 0 718 BIT FORMA 
| 1850 627010 012737 177376 001414 i MOV #-258.,.RMWCO :2 + 256 WORDS (2°S COMP) 
1852 027016 012737 101360 001416 MOV #BUFONE,RMBAO  ;:DATA BUFFER ADDRESS 
HF 027024 012737 000062 001412 MOV #WH.RMCS10 ;WRITE HEADER AND DATA 
18 


: VERIFY THAT SECTOR iS NOT BAD 
JSR BADSCT 


027032 004737 033152 j CALL BAD SECTOR MODULE 
027036 000405 BR :G0 TO 2$ IF NO ERROR 
027040 104401 063346 TYPE , SCTMSG :TYPE BAD SECTOR MESSAGE 
027044 104000 EMT zERROR # DEFINED BY BADSCT SUBROUTINE 
027046 000137 027522 IMP «168 :GO TO 16$ IF ERROR 
1856 627052 2$: 
1857 027052 012737 065000 001174 MOV gt STMPO ;USE ALL ZEROS DATA PATTERN 
1858 027060 012737 000001 001176 MOV #1, $TMP1 
1859 027066 004737 035104 JSR PC. GENBUF :GO GENERATE DATA BUFFER 
1860 027072 3$: 
1862 sPREPARE DEVICE FOR DATA TRANSFER 
1863 027072 004737 032176 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
027076 154130 WORD 154130 TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF "'SKI'' OR ‘PIP’ IS SET 
:VERIFY RECALIBRATION 
027100 000404 BR 4$ :GO TO 4$ IF NO ERROR 
027102 000240 NOP ;RETURN HERE IF ERROR 
027104 104000 EMT ' sERROR # DEFINED BY TSTPRP SUBROUTINE 
027106 000137 027522 IMP «16S :G0 TO 16$ IF ERROR 
1864 027112 4$: 
1866 ;SETUP AND EXECUTE WRITE HEADER AND DATA. COMMAND 
1867 027112 012737 000063 001412 MOV #WH'GO.RMCS1O. :WRITE HEADER AND DATA 
1868 027120 012702 001553 MOV = APUT INK, R2 ZWRITE REGISTER INDEX TABLE 
1869 027124 112722 000006 MOVB = #RMDA, (R2)+ 
1870 027130 112722 000034 MOVB  #RMDC.(R2)+ 
1871 027134 112722 000032 MOVB = #RMOF .(R2)+ 
1872 027140 112722 000002 MOVB  #RMWC.(R2)+ 
1873 027144 112722 MOVB  #RMBA.(R2)+ 
1874 027150 112722 000000 MOVB  #RMCS1,(R2)+ 
1375 027154 112722 000200 MOVB #200, (R2)+ 
1877 027160 004737 036240 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
027164 000404 BR .. :GO TO 5$ IF NO ERROR 
0271 000240 NOP RETURN HERE IF ERROR 
027170 104 EMT “ERROR # DEFINED BY PUT SUBROUTINE 
027172 000137 027522 IMP «168 :G0 TO 16$ IF ERROR 





ee a 


A ete 


oe. eee Lee 
’ 


1878 027176 


885 027224 


887 
888 027224 
027230 


000 
000137 


604737 
004737 
000404 
000240 
104000 


CZRMNBO RMO5/3/2 FCINL TST 2 
127 FORMAT ERROR TEST 


035704 
036602 


035770 
027522 


036766 


027522 
051502 


027522 
037620 


027522 


001444 
167777 
102364 
000073 


036240 
027522 


036602 
035770 
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001444 
001416 
001412 


5$: 


>SETUP INPUT KEGISTER BUFFER FOR READING STATUS 
JSR TSTS 


JSR 


EMT 
JMP 
6$: 


:VERIFY RESULTS 
JSR 


BR 

NOP 

EMT 

JSR 

JMP 
7$: 


&$: 


EMT 

JSR 

JMP 
9$: 


e 


PC,GET 
6$ 


16$ 


OF WRITE COMMAND 
oo 


PC,a(SP)+ 
16$ 


PC ,DTASTS 
8$ 


PC,a(SP)+ 
16$ 


PC,SECERR 
9$ 


PC,a@(SP)+ 
16$ 


MOUT 


:WAIT FOR COMMAND TO COMPLETE 


:GO oa REGISTER(S) WITH GET SUBROUTINE 
:GO TO 6$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

;GO TO 16$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 7$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 16$ IF ERROR 


:GO VERIFY gt OF DATA TRANSFER 
:GO TO 8$ IF NO ERROR 

:RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

:GO TO 16$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
-GO TO 9$ IF NO ERROR 
“RETURN HERE IF ERROR 


sERROR # Fea ie BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GC TO 16$ IF ERROR 


sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT 


:TO CHECK THAT ‘FER'’ SETS 
C RMOF 


OM 0 
BIC #“C<FMT16>,RMOFO 
MOV #BUF TWO ,RMBAO 
MOV #RH!GO,RMCS10 
JSR PC,PUT 

BR 10$ 

NOP 

EMT 

JMP 16$ 


10$: 


; CHANGE TO OPPOSITE FORMAT 


; CHANGE BUS ADDRESS 
sREAD HEADER & DATA COMMAND 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 10$ IF NO ERROR 
>RETURN HERE IF ERROR 


:ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 16% IF ERROR 


;WAIT ht aie TO Bry AND GET STATUS 


JSR 
BR 

NOP 
EMT 


PC,T 
PC,GET 
11$ 


;WAIT FOR READ TO COMPLETE 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 11$ IF NO ERROR 
;RETURN HERE IF ERROR 


:ERROR # DEFINED BY GET SUBROUTINE 


Lr a es ee ee ee es - enw eo eee a ee _ 
~ - 7 = ee ee ew. - - ---- -——- ed 


ee oe 





RMOS/ 3/2 FCTNL TST 2 
* ORMAT 


027366 
027372 


Oe rare 


027412 


027412 
027420 


027514 
027516 
027522 


027522 


ERROR TEST 


000137 


032737 
001022 


004736 
000157 
032737 


001402 
0001 37 


012737 
012737 


012737 


02752? 


036766 


027522 
000020 


051502 


027522 
001352 


037620 


027522 
010000 


027016 


001100 


6 
000030 
000001 


010000 
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001352 


001444 


001226 
030520 


001444 





:GO TO 16$ IF ERROR 


-GO CHECK FOR PRIMARY ERRORS 
:GO TO 12$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 16$ IF ERROR 


71S FORMAT ERROR SET?? 
ai yp he. 


:GO i RESULTS OF DATA TRANSFER 
:GO TO 13$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 16$ IF ERROR 


:BAD DATA FOR TYPEOUT 
sEXPECTED DATA 


:GO CHECK FOR SECONDARY ERRORS 

:GO TO:15$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 16$ IF ERROR 


;TEST WRITE 16 si fF ORMAT AND 
:READ 18 BIT MODE 
:BR IF YES 


= TEST AGAIN 


= Te te Se te Te te ie ie ee te te KKK KEKE REE KKEKKKEEKR KES 


FIRST HEADER WORD 


COURS IIIS IOI IOI OISIIOIOI IOI IOIOISOIIOI IIIS IOSD I tori 


>SCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 

;RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 

7:SET TEST NUMBER IN APT MAIL BOX 


: INIT BIT POSITION 


JMpP 16$ 

11$: 

VERIFY THE RESULTS OF a OPERATION 
JSR PC, PRIERR 
BR 12$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 163 

12$: 

7; VERIFY THAT FORMAT ERROR IS SET 
BIT #FER,RMERTI 
BNE 14$ 
JSR PC ,DTASTS 
BR 13$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 16$ 

13$: MOV RMER11,$BDDAT 
MOV RMER11,$GDDAT 
BIS #FER,SGDDAT 
EMT 343 

14$: 
ISR PC,SECERR 
BR 15$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 16$ 

15$: 
BIT #FMT16,RMOFO 
BEQ 16$ 
JMP 1$ 

16$: 

“STEST 30 FORMAT HCE, 

+8130: 
SCOPE 
NOP 
MOV ASTACK,SP 
MOV $BASE ,RO 
MOV TSTQUE ,R1 
MCV #30, $TESTN 
MOV #1,23% 


Fila PARAMETERS FOR GENERATING DATA BUFFER 


MOV 


#FMT16,RMOFO 


216 BIT FORMAT 


€ 7RMNBO wae 2 ¢ FCTNL TST 2 


730 


1945 027614 


027670 


1956 027702 


1959 027702 
1961 027712 


See PER 


~~ — 3 ws ss 3 
SSz 
Oo 
Ooooo 
MMM 
~ 
S 
oO 


66 
1975 027772 
197 


6 
1977 027776 
030002 


030004 
030006 


T HCE, 


027622 


000 
000137 
012737 


012737 
904737 


004737 
154150 


000404 
00 


000000 


CQ0000 
177376 
101360 
000062 


033152 
063346 
030672 
065000 
000001 
035104 


052176 


030672 


030520 
030520 


3 
~ 030520 


000200 
036240 


MACKO V04.00 4-APR-81 11: 
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101360 
101360 
101360 


001412 
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MOV #0,RMDCO sCYLINDER = 0 
MOV #0,RMDAO : TRACK = 0, SECTOR = 0 
MOV #-258. .RMWCO 72 ¢ + 256 WORDS (2°S S COMP) 
MOV ABUFONE,RMBAO ;DATA BUFFER ADDRESS 
MOV #WH,RMCS10 “WRITE HEADER AND DATA 
sVERIF ¥ THAT SECTOR IS NOT BAD. 
JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
$ :GO TO 2$ IF NO ERROR 
TYPE »SCTMSG ; TYPE BAD SECTOR MESSAGE 
EMT = ERROR # DEFINED BY BADSCT SUBROUTINE 
2$ JMP 27% :GO TO 27% IF ERROR 
MOV #ZEROS.$STMPO jUSE ALL ZEROS DATA PATTERN 
MOV 41,$TMP1 . 
35 JSR PC , GENBUF 3;GO GENERATE DATA BUFFER 
s;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
. WORD 154130 ;TASK DESCRIPTOR AS FOLLOWS: 
“SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:;VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘’SKI*’ OR 'PIP*’’ IS SET 
; VERIFY RECALIBRATION 
BR 4$ :GO TO 4$ IF NO — 
NOP “RETURN HERE IF ERROR 
EMT s;ERROR # DEFINED BY TSTPRP SUBROUT INE 
4s JMP 27$ :GO TO 27% IF ERROR 
; COMPLEMENT DATA BIT IN FIRST HEADER WORD 
a 3$ , BUF ONE a BIT IN HEADER ON?? 
me “> ‘apeeatlaaie RESET BIT IN HEADER 
5$: BIS 23% , BUF ONE ;SET BIT IN HEADER 
Tahal AND EXECUTE WRITE HEADER AND DATA COMMAND 
MOV #WH!GO,RMCS10 WRITE HEADER AND DATA 
MOV #PUTINX,R2 sWRITE REGISTER INDEX TABLE 
MOVB ARMDA, (R2) + 
MOVB ARMDC , (R2) + 
MOVB #RMOF , (R2) + 
MOVB ARMWC, (R2) + 
MOVB ARMBA, (R2) + 
MOVB ARMCS1,(R2)+ 
MOVB #200, (R2)+ 
JSR PC PUT 3;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
RR 7$ GO TO 7$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT sERROR 4 DEFINED BY PUT SUBROUTINE 


SEQ 0134 
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a0 ORMAT HCE, FIRST HEADER wORD SEQ 0145 
030010 000137 030516 JMP 22$ 3:GO0 'O 22% IF ERROR 

Absa 630014 7$: 

1980 SETUP INPUT REGISTER BUFFER FOR READING STATUS 

1981 930014 004737 035704 JSR PC,GETSTS 

on 030020 004737 036602 JSR PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 

1984 0350024 004737 035770 JSR PC GET 3:GO READ REGISTER(S) WITH GET SUBROUTINE 
030030 000404 BR 8$ :GO TO 8$ IF NO ERROR 
030032 000240 NOP RETURN HERE IF ERROR 
030034 104000 EMT ;ERROR #4 DEFINED BY GET SUBROUTINE 
030036 000137 030516 JMP 223 GO TO 22% IF ERROR 

ion 030042 8$: 

1987 VERIFY RESULTS OF WRITE COMMAND 

1988 030062 004737 036766 JSR PC,PRIERR 3GO CHECK FOR Bg i ERRORS 
030046 000405 BR 9$ :GO TO 9$ IF NO ERROR 
030050 000240 NOP ;RETURN HERE IF ERROR 
030052 104000 EMT = ERROR # DEFINED BY PRIERR SUBROUTINE 
C30054 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
030056 000137 030516 JMP 225 :GO TO 22% IF ERROR 

1989 030062 o$: 

1990 030062 004737 051502 JSR PC DTASTS 3;GO VERIFY RESULTS OF DATA TRANSFER 

030066 000405 BR 10$ =GO TO 10% IF NO ERROR 
030070 000240 NOP sRETURN HERE IF ERROR 
030072 104000 EMT ZERROR # DEFINED BY DTASTS SUBROUTINE 
030074 004736 JSR , PC, atSP)+ 3;GO BACK FOR MORE ERROR CHECKS 
030076 000137 030516 JMP 22$ :GO TO ee$ IF ERROR 

1991 030102 10$: 

1992 030102 004737 037620 JSR PC,SECERR 3;GO CHECK FOR SECONDARY ERRORS 
030106 000405 BR 11$ :GO TO 118 IF NO ERROR 
030110 000240 NOP >RETURN HERE iF ERROR 
030112 104000 EM] ;ERROR # DEFINED BY SECERR SUBROUTINE 
030114 004736 JSR PC ,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
030116 000137 030516 JMP 22% :GO TO 22% IF ERROR 

ant 030122 11$: | 

1995 READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

1996 030122 012737 000073 001412 MOV ARH'GO,RMCS10 ;READ HEADER & DATA COMMAND 

ips 030150 012737 102364 061416 MOV #BUF TWO, RMBAO ~~; CHANGE BUS ADDRESS 

1999 030136 004737 036240 JSR PC,PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
030142 000404 BR 12$ 3;GO TO 12% IF NO ERROR 
030144 000240 NOP ;RETURN HERE IF ERROR 
030146 104000 EMT ;ERROR #4 DEFINED BY PUT SUBROUTINE 
030150 000137 030516 JMP 223 :GO TO 22$ IF ERROR 

coer 030154 12$: 

2002 ;WAIT FOR READ TO COMPLETE AND GET STATUS 

oa 030154 004737 036602 JSR PC, TIMOUT z:WAIT FOR READ TO COMPLETE 

2005 030160 004737 035770 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
030164 000404 BR : 13% 7:GO TO 13$ IF NO ER -~ 
030166 000249 NOP *RE TURN HERE IF ERRO 
030170 104000 EMT ;ERROR # DEFINED BY OGET SUBROUT INE 
030172 000137 030516 JMP 223 :GO TO 22% IF ERROR 

2006 030176 13$: 


ra 
Y <¢f 
tJ 


7 RMNBO MO S/ 3/2 
U FORMAT 


2007 

2008 

elu? 030176 
0 2 


2014 030234 

2015 

2016 

2017 030236 

2018 050244 

2019 

2020 030246 
630252 


2026 030312 

2027 

2028 

2029 030314 

2050 030314 

2031 030322 

2032 

2035 030324 
0305339 


2038 366 

2059 030370 

2040 

2041 

2042 030372 

2043 030372 

2044 030400 

2045 

2046 030402 
030406 
030410 


, FCTNL 
FIR 


HCE. 


004737 
000405 
090240 
104000 
004736 
000137 


032737 


032737 
001707 


004737 


000137 
013737 


032737 
001060 


000452 


032737 
001031 


036766 


030516 
140000 
010000 


000020 


051502 


050516 


001352 
001352 
000020 


100000 


051592 


030516 


001400 
001400 
100000 


000200 


051502 
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*. 
HEADER wORD 


030520 
030520 


001352 


001400 


001352 


: VERIFY 


14$: 


; VERIFY 


15$: 


7 VERIFY 
16$: 


17$: 


; VERIFY 
18$: 


THE RESULTS OF _ ie ig 
JSR PC ,PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 14$ :GO TO 14$ IF NO ERROR 


NOP ;RETURN HERE IF ERROR 

EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

JMP 22$ :GO TO 22$ IF ERROR 

BIT AMSF ! USE ,23$ + SHOULD BSE BE SET ? 

BNE 16$ YES 

BIT #FMT16,25$ is this FER ?? 

BEQ 18$ NO 

THAT FER IS SET 

BIT AFER,RMER1] 523 FER SET 27 

BNE 20$ {¥es. 53 

JSR ~—s- PC, ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 15$ ;GO TO 15$ IF NO ERROR 

NOP sRETURN HERE IF ERROR 

EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC ,a(SP)+ >GO BACK FOR MORE ERROR CHECKS 

JMP 22% :GO TO 22$ IF ERROR 

MOV RMERTI,$BDDAT ;RECEIVED STATUS 

MOV RMER1I,$GDDAT ;EXPECTED STATUS 

BIS #FER, $GDDAT 

EMT 343 

BR 22$ 

THAT BSE IS SET 

BIT #BSE,RMER21 sia Gee: Set 7? 

BNE 20$ FYES: 2! 

JSR PC ,DTASTS 


:GO VERIFY RESULTS OF DATA TRANSFER 
BR 17$ ;GO TO 17$ IF NO ERROR 


NOP sRETURN HERE IF ERROR 

EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 

JMP 22$ :GO TO 22$ IF ERROR 

MOV RMER2I,$BDDAT ;RECEIVED STATUS 

MOV RMER21,$GDDAT ;EXPECTED STATUS 

BIS A#BSE , $GDDAT 
EMT 345 

BR 22$ ;SKIP REST OF TEST 

THAT HCE IS SET 

BIT #HCE ,RMER11 718 “WCE” SET?? 

BNE 20$ YES: i 

JSR PC ,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 


BR 19$ ;GO TO 19$ IF NO ERROR 
SRETURN HERE IF ERROR 


- 


LL LL CECT CE EE sat apzat a 
ee ee  ssteesestene seteeetisteneen 
aria Eee Se en 


» gRMNEO RMOS/3/e FCTNL TST 2 


r 50 


FORMAT 


030504 
039510 
030512 


030516 
030520 


Se rn ee oes 2 ers 


104000 
004736 
000137 
013737 


000137 


006337 
001404 
000137 


000465 
000000 


030516 
001352 
001352 
000200 
000001 
030520 


037620 


030516 


030520 
027556 


010000 
177776 
055104 
032176 


030576 


000063 
001553 
000006 
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HCE, FIRST HEADER WORD 


sERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 22$ IF ERROR 


sRECEIVED STATUS FOR TYPEOUT 
sEXPECTED STATUS 


3GET HEADER WORD NUMBER 
sGET FAILING BIT POSITION 


é 


;GO CHECK FOR SECONDARY ERRORS 

;GO TO 21$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO TO 22$ IF ERROR 


; ADVANCE PP tog ae AND FORMAT AGAIN IF NOT DONE 


sSHIFT TO NEXT BIT POSITIGN 
sEXIT IF DONE 


:GO DO NEXT SECTOR 


; JUMP TO NEXT TEST 
sSTORAGE FOR BIT POSITION 


> MERE RRR RRA REE EEE ERK EERE KERR EERE ERE KERR EERE EERE 


: *REFGRMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 


SERENE 


EMT 
JSR PC,a(SP)+ 
JMP 223 
19$§: 
001142 MOV RMER11,$BDDAT 
001140 MOV RMER11,$GDDAT 
001140 BIS #HCE ,$GDDAT 
001174 MOV #1,$TMPO 
001176 MOV 238, STMP1 
EMT 
BR 333 
20$: 
s;CHECK FOR OTHER ERRORS 
JSR PC. SECERR 
BR 21$ 
NOP 
EMT 
JSR PC,a(SP)+ 
2c$ 
21$: 
BEQ 24$ 
JMP 1$ 
223: BR 27$ 
23s: -WORD 0 
5i$: 
001444 MOV #FMT16,RMOFO 
001414 MOY #-2 ,RMWCO 
001416 MOV #BUF ONE , RMBAO 
001412 MOV #WH,RMCS10 
JSR PC, GENBUF 
JSR PC, TSTPRP 
. WORD 154130 
etal - 23s 
NOP 
EMT 
JMP 25$ 
25$ 
001412 MOV 4WH!GO,RMCS10 
| MOV #PUTINK,R2 
MOVB MRMDA, <R2) + 


;16 BIT MODE 

sONLY TWO HEADER WORDS 
:SELECT THE BUFFER 

sWRITE HEAD AND DATA COMMAND 
;GENERATE THE BUFFER PATTERN 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

sSELECT DEVICE & VERIFY DEVICE AVAILASLE 
;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘’SKI'’ OR ‘PIP'' IS SET 
> VERIFY RECALIBRATION 


:GO TO 25$ IF NO ERROR 

;RETURN HERE IF ERROR 

«ERROR # DEFINED BY TSTPRP SUBROUTINE 
;GO TO 25$ IF ERROR 


;SET THE GO BIT 
sPUT THE REGISTER ADDRESS INTO TABLE 


A A eT is SRS St es es eee thane ar ete tam - = a - 


-* 


> eeeieqeenees 


a eee eee eee ee 
ee ee 
; 


SO 


208% 030614 


2096 
2097 


PUPMSMPOMINPLNY 
ed ed mee od od ed 
ee on aed od = ~. 
CoO'NO Wn & wth 
OOdO0oO 
LAI.AIIAW WA 


HCE, 


722 
722 


012737 


000137 


012737 
012737 
004737 


004737 
154130 


lei nie ia eee 


’ 


7RMNBO mos 34 FCTINL TST 2 
FORMAT FIRST HEADER WOR 


CO00032 
2 


001100 
001276 
001466 
000031 


000001 


000000 


000062 


035152 
063346 
031666 
065000 


000001 
035104 


032176 
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001226 
031514 


001446 


001412 


MOVB MRMDC,(R2)+ 
MOVB #RMOF , (R2)+ 
MOVB #RMWC , (RO) + 
MOVB #RMBA, (R2) + 
MOVB MRMCS1,(R2)+ 
MOVB #200, (R2)+ ; TERMINATOR 
JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUIINE 
BR 26$ :GO TO 26$ IF NO ERROR 
NOP SRETURN HERE JF ERROR 
EMT ZERROR # DEFINED BY PUT SUBROUTINE 
JMP 27S 3;GO TO 27$ IF ERROR 
263: 
NOP 
JSR PC,TIMOUT ;WAIT UNTIL IT FINISH 
NOP 
27$: 
bd oO beeebabdendibae cow bcos eenenddnnsdesesdeedeeonsdesneceeeeeess 
= *TEST 31 FORMAT KCE, SECOND HEADER WORD 
. FERRER EEE ERE 
TST31: 
SCOPE :SCOPE CALL 
NOP ;START OF TEST 
MOV HSTACK,SP INITIALIZE STACK POINTER 
MOV $BASE ,R “RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 ;{R1) = DEVICE BEING TESTED 
MOV #31,$TESTN SET TEST NUMBER IN APT MAIL BOX 
MOV #1,19$% : INIT BIT POSITION 
Saad PARAMETERS FOR GENERATING DATA BUFFER 
MOV #0,RMDCO :CYLINDER = 0 
MOV #0,RMDAO >TRACK = af SECTOR = 0 
MOV AFMT16,RMOFO 716 BIT FORMAT 
MOV 4-258. ,.RMWCO 72 + 256 WORDS (2'°S COMP) 
MOV #BUF ONE , RMBAO ;DATA BUFFER ADDRESS 
MOV #WH,RMCS10 WRITE HEADER AND DATA 
7; VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT ;CALL BAD SECTOR MODULE ‘* 
2$ :GO TO 2$ IF NO ERROR 
TYPE ,5SCTMSG ; TYPE BAD SECTOR MESSAGE 
EMT ERROR # DEFINED BY BADSCT SUBROUTINE 
3 JMP 23$ :GC TO 23$ IF ERROR 
MOV #ZEROS,STMPO ;USE ALL ZEROS DATA PATTERN 
MOV #1, $TMP1 
“ JSR PC , GENBUF :GO GENERATE DATA BUFFER 
;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC,TSTPRP - ;PREPARE DEVICE FOR TEST 
. WORD 154130 s TASK DESCRIPTOR AS FOLLOWS: 


:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 


. 22MNBU 


031040 


tk nt 8 etd et ot we 
Mroenmngnorumonoen 


OoOCOoO 
WNIWNWNW ANN AWW 


ARAN OVO MORRO Ow 
Gitivtateh dasabeimbebebahabebead 


r 
RNR NNN 


NWWNWNWS WN 
SOMO nee) 


ooo COOCO°COO 
a 


WWWN 
BOUIN SWAPO OO 


MIMMoNoMonony 
— 3 3 3 3 
Pa oe oP a er ee 
NOW SW 

a 

Ww 

uD 

a’ 

oO 

& 


000137 


004737 
004737 


004737 
000137 
004737 
000405 


004737 
000405 


RMO9/3/2 FCTINL TST 2 
FORMAT HCE, SECOND HEADER WORD 


031666 
031514 
031514 


031514 


0G0065 


000200 
036240 


031512 


035704 
036602 


035770 
031512 


036766 


031512 
051502 
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101362 
101362 
101362 


001412 





BR 4% 
NOP 
EMT 
JMP 23$ 

; COMPLEMENT 

4$: 
BIT 19$ , BUF ONE +2 
BEQ 5$ 
BIC 19$ , BUF ONE +2 
BR 6$ 

5$: BIS 19$ , BUF ONE +2 

Yea AND EXECUTE WRITE HEADER 
MOV #WH!GO,RMCS10 
MOV H#PUTINX,R2 
MOVB ARMDA, (R2) + 
MOVB ARMDC, (R2) + 
MOVB #RMOF , (R2)+ 
MOVB HRMWC , (R2)+ 
MOVB ARMBA, (R2) + 
MOVB #RMCS1,(R2)+ 
MOVB #200, (R2)+ 
JSR PC ,PUT 
BR 7$ 
NOP 
FMT 
JMP 18$ 

7$: 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘‘SKI** OR "PIP’’ IS SET 
: VERIFY RECALIBRATION 

:GO TO 4$ IF NO ERROR 

sRETURN HERE IF ERROR ; 
:ERROR #_DEFINED BY TSTPRP SUBROUTINE 
:GO TO 25$ IF ERROR 


DATA BiT IN SECOND HEADER WORD 


oR al IN HEADER ON?? 
SRESET BIT IN HEADER 
;SET BIT IN HEADER 
AND DATA COMMAND 


;WRITE HEADER AND DATA 
sWRITE REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 7$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 18$ IF ERROR 


sSETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR TSTS 


8$: 
i VERIFY 


9$: 


JSR 


PC, TIMOUT 
PC,GET 
8$ 


18$ 


sWAIT FOR COMMAND TO COMPLETE 


-GO READ REGISTER(S) WiTH GET SUBROUTINE 
:GO TO 8$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:GO TO 18% IF ERROR 


OF WRITE COMMAND 


PC,PRIERR: 
9$ 


PC,a(SP)+ 
18$ 


PC,DTASTS 
10$ 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 9$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO TO 18$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 10$ IF NO ERROR 


SO A TT cs ne sesh Senn oh eipesanediiesonae -_ 


SEQ 0159 


calies 


aeteettiipe tie - = 


— srr 
SN NW NWN 
QOBNRAR 


MMMM NS 
COOoCOooCoCoCooO CO 


031240 


031272 
031272 
031300 
631306 
0 


0 
031324 


031324 
031330 
031334 


$ 


OVUORRLO FN 


SHELL EAN WG 
WN — 
Ms Oo 


T HC 


aly aa 


012737 
012737 


004737 
0001 37 


004737 


004737 
000404 
000 


032737 
001031 


004737 


013737 
013737 
052737 


MNBO wae 2 FCTNL TST 2 
E, SECOND HEADER WORD 


031512 
037620 


031512 


000073 
102364 


036240 


031512 


036602 
035770 


031512 


056766 


031512 


000200 


051502 


031512 


001352 
001352 
000200 


001 
001 


Fr 
mad old 
OsM 


001352 


10$: 


11S: 


PC ,a@(SP)+ 
18$ 


PC,SECERR 
11$ 


PC ,a(SP)+ 
18$ 
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sRETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO TO 18% IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 11$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY SECERR SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 
:GO TO 18% IF ERROR 


READ os AND DATA FOR SECTOR JUST WRITTEN 


MOV 


12$: 


#RH!GO,RMCS10 
#BUF TWO, RMBAO 


PC,PUT 
12$ 


18% 


sREAD HEADER & DATA COMMAND 
: CHANGE BUS ADDRESS 


:GO rigs ep oy PUT SUBROUT INE 


:GO TO 12$ IF 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 18% IF ERROR 


;WAIT ee TO COMPLETE AND GET STATUS 


13$: 


: VERIFY THE 
JSR 


14$: 


PC, TIMOUT 
PC,GET 
13$ 


18$ 


v4 


PC,a(SP)+ 
18$ 


sWAIT FOR READ TO COMPLETE 


‘— READ_REGISTER(S) WITH GET SUBROUTINE 


O TO 13$ IF NO ERROR 


“RETURN HERE IF ERROR 
“ERROR # DEFINED BY GET SUBROUTINE 
-GO TO 18% IF ERROR 


RESULTS OF READ OPERATION 
PC,PRIERR 


;GO CHECK FOR PRIMARY ERRORS 
:GO TO 14$ IF NO ERROR 
:RETURN HERE IF ERROR 


:ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 18% IF ERROR 


; VERIFY HEADER COMPARE ERROR IS SET 


BNE 


15$: 


AHCE ,RMER1 
16$ 


PC,DTASTS 
15$ 


PC,a(SP)+ 
18$ 


RMER11 , $BDDAT 
RMER11 , $GDDAT 
MHCE , S$GDDAT 


fi ty HCE’ SET?? 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 15$ IF NO ERROR 
:RETURN HERE IF ERROR 


:ERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;GO TO 18$ IF ERROR 


sRECEIVED STATUS FOR TYPEQUT 
sEXPECTED STATUS 


_—_——~- 


MIMNMIMINMINNMI Pon 
Se en ee ee 


MOMININY 
MmMHnnry 
RAVLS 


2 

2205 031516 
2206 031516 
2207 031524 


2210 031546 

2211 

2212 031552 
031556 


031566 
2213 031572 
2214 031572 
2215 031600 
2216 031604 
2217 031610 
2218 031614 
2219 031620 
2220 031624 
2221 031630 
2222 031634 
2223 031640 


012737 
013737 
104344 
000415 


0001 37 


000465 
000000 


012737 


004737 


004737 
154150 


000404 


~~ oe eee os 


o-oo 1 OO 
nn tre ty th 
N 
N 


R 
™N 
WN 
™ 


C 7RMNBO aes FCTINL TST 2 
731 T HCE, SECOND HEADER WORD 


09C002 
031514 


037620 


031512 


031514 
030726 


010000 
177776 


035104 
032176 


031572 
eepg 


036240 
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901174 
001174 


001412 


——— ewe 6 ne ee eee, 


16$: 


MOV #2,$TMPO 
MOV 19$,$1TMP1 
EMT 344 

BR 18$ 

: CHECK FOR OTHER ERRORS 

JSR PC,SECERR 
BR 17$ 

NOP 

EMT 

JSR PC,a(SP)+ 
JMP 18$ 


17$: 


3GET HEADER WORD NUMBER 
sGET FAILING BIT POSITION 


:GO oats FOR SECONDARY ERRORS 
:GO TO 17$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE — CHECKS 

:GO TO 18% IF ERROR 


chaciesron Sng oO AND FORMAT gt SECTOR IF NOT DONE 


18$: 
19$: 


BEQ 
JMP 


BR 
. WORD 


20$ 
1$ 


23$ 
0 


sSHIFT TO NEXT BIT POSITION 
DONE 


sEXIT IF 


:GO0 DO NEXT SECTOR 


; JUMP OVER STORAGE 
: STORAGE FOR BIT POSITION 


SERRE REE KEE ERE KEK EEE KERR KEKE EKER EKER 


 kREFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 


CEE EKER RE KEKE EKER 


50: 


#FMT16,RMOFO 


#-2 .RMWCO 


#BUF ONE , RMBAO 


#WH.RMCS10 
PC, GENBUF 


PC,TSTPRP 
154130 


21% 


21$ 


AWH!GO,RMCS10 


APUTINX,R2 


#RMCS1, (R2)+ 


#200, (R2)+ 
PC PUT 


tr 


;16 BIT MODE 

:2@ HEADER WORDS ONLY 

;BUFFER ADDRESS 

:WRITE HEAD AND DATA COMMAND 
;SET UP THE BUFFER 


sPREPARE DEVICE FOR TEST 


- TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 


: VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘‘SKI’' OR 'PIP’’ IS SET 
; VERIFY RECALIBRATION 

:GO TO 21$ IF NO ERROR 

sRETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 21$ IF ERROR 


:SET GO BIT 
; TABLE ADDRESS 


; TERMINATOR 
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 


SE ES Se ee ee 


CZRMNBO NOS of 6 FCTNL TST 2 MACRO v04.00 


751 ORMAT HCE, SECOND HEADER wORD 


0316 0001357 031666 
2224 031656 223: 
2225 031656 000240 
2226 031660 004737 036602 
2227 031664 000240 : 
2228 031666 2 3$: 


22$ 


23% 


PC,7IMOUT 


M11 
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0 10 22$ !F NO ERROR 
‘RETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 23$ IF ERROR 


;WAIT FOR TIME OUT 


N11 
| CZRMNBO RMOS/3/2 FCINL TST 2. MACRO VO04.00 4-APR-81 11:43:33 PAGE 14 | 
END OF SUB=PASS ROUTINE SEQ 0143 


> -SBTTL END OF SUB=-PASS ROUTINE . 
3 THIS IS_THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
4 : TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
5 ;SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
6 :TO TEST, EXIT IS MADE TO ‘SEOP' ROUTINE. OTHERWISE. RETURN 
. :I1S MADE TO "SHUT* ROUTINE. 
9 031666 000004 S$EOSP: SCOPE 
10 031670 000240 NOP 
11 031672 013700 001466 MOV TSTQUE ,RO :GET POINTER TO TSTQUE 
12 931676 062700 000002 ADD #2,R0 :ADJUST POINTER TO pd DEViCE 
15 031702 010037 001466 MOV RO, TSTQUE sSAVE POINTER TO TSTQUE 
14 031706 005710 TST (RO) ;ANY MORE DEVICES FOR TEST ? 
15 031710 001402 BEQ 1$ :BR IF NO 
16 031712 000137 032142 JMP SHUT ; JUMP TO ‘SHUT’ ROUTINE 
17 031716 912737 007470 001466 1$: MOV ATSTQUE+2, TSTQUE sINITIALIZE POINTER TO FIRST DEVICE IN 
i. . ;TEST QUE TABLE 
20 -SBTTL END OF PASS ROUTINE 


RII IOIIOIOIIOICIOIOIOIUIOI UII IOI IOI OI IOI OI IOS OTT IAS IA SIS SSA SASSI AIAISIANC ACN 56 
: SINCREMENT THE PASS NUMBER ($PASS) 

>*TYPE "END PASS AXXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yyyyy"’ 
> *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO SHUT 


031724 SEOP: 


031724 000240 NOP : 
031726 005037 001116 CLR STSTNM : ::ZERO THE TEST NUMBER 
031732 005037 001206 CLR S$TIMES ‘: 7;ZERO THE NUMBER OF ITERATIONS 
031736 005237 001230 INC $PASS 7: INCREMENT THE PASS NUMBER 
031742 042737 100000 001230 BIC #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
031750 005327 DEC (PC) + LOOP? , 
031752 000001 S$EOPCT: .WORD 1 
031754 003066 BGT $DOAGN 7 YES 
031756 012737 MOV (PC) +,a(PC)+ RESTORE COUNTER 
031760 000001 S$ENDCT: .WORD 1 
031762 031752 $SEOPCT 
031764 104401 031772 TYPE ,65$ ;3 TYPE ASCIZ STRING 
C31770 000407 BR 64$ :GET OVER THE ASCIZ 
::65$: .ASCIZ <12><15>/END PASS #/ 
032010 64$: 3 
032010 013746 001230 MOV $PASS,-(SP) :: SAVE S$PASS FOR TYPEOUT 
a 7; TYPE PASS NUMBER 
032014 104405 TYPDS , :;:GO TYPE--DECIMAL ASCII WITH SIGN 
032016 005737 001126 TST SERTTIL “ ;;SEE IF ANY ERRORS THIS PASS 
032022 001431 BEQ $GT42P i IF NO ERRORS TO REPORT 
032024 104401 032032 TYPE ,67$ TYPE ASCIZ STRING 
032030 000421 BR 66$ =GET OVER THE *: bae 
:;67$: -ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 

032074 66$: 
032074 013746 001126 MOV SERTTL,-(SP) SAVE SERTTL FOR TYPEQUT 

3; TOTAL NUMBER OF ERRORS 


032100 104405 TYPDS 7:GO TYPE=-DECIMAL ASCII WITH SiGN 
032102 005037 001126 CLR $ERTTL 3!CLEAR ERROR TOTAL | 





neeneeedl etn EE 
rite 


oh aes a 
; 


7 2™NBO me get fF * aes 
END UF PASS ROUT! 


COCCKOOOCOCO0O 
ie ROARS 
— at 
a | 
S 
* 
© 


Boa VERRASD 
Gooesocs 
RRRRRRAR 
NEVSRSER 


TST 2 


001217 
G00042 


377 


001326 
007670 
000042 
005432 
001300 
031724 





$G142P: 
$GETS2: 


SENDAD: 


- SCRiF 
B442 RO 
SDOCAGN 


PC, (RO) 


a(?C)+ 
T 
-1,-1,0 
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72 TYPE CARRIAGE RETURN, LINE FEED 
:2GET MONITOR ADDRESS 
; BRANCH IF NO MONITOR 


3zNULL CHARACTER STRING 


sWAS CONTROL C FLAGGED ? 
:BR IF YES 

; CONT INUE 

sANY MONITOR PRESENT ? 
7BR IF YES 

:GO TO STAR’ 

sFUDGE NO DRIVES IN MAP 
sRETURN TO SEOP 


o 4 
hots 


r= en oe - 


JRMNBO 8MOS 
7F 7 


S/e 


FC TNL 


SREPARAT! 'ON MODULE 


2 O@BNOA MEW --O O@ VA UPWwr 4 


MIN = 2 wer — —s aA 


ee 


o OOOO 


51 0 
52 032242 
53 032250 


54 
55 032254 
56 
57 


Je. & 


017637 
062716 
105076 
162716 


062716 
113776 
000137 


013737 


a 
st 2 


000000 
000006 
000000 
000004 


035704 
035770 


000004 
0322354 
033136 


007400 


C id 
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033146 


000900 


033150 


- SBTTL 


; REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. 


TEST PREPARATION MODULE 
: THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 


THE USER 


; SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 


: USING SUBROUTINES... 


s CALL: 


TSTPRP: 
;STORE TASK 
MOV 


1$: 


23: 


JSR PC, TSTPRP 
Pia NANAIN 


2? 


NOP 
ERROR 


a = 


— 
wi 


#4,(SP) 
JSR PC,GETSTS 
PC,GET 


BR 1$ 


-WORD 0 
ADD #4,(SP 
1$-2,a(SP) 
37$ 


MOV RMER21 ,40$ 


TASK/VERIFY DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 

ERROR DEFINED BY MODULE 


SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
CLEAR CONTROLLER AND es DEVICE 

(RESERVED FOR DRIVE CLEAR 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 


RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR 
RECALIBRATE DRIVE 


VERIFY CONTROLLER CLEAR OPERATION 


(RESERVED FOR DRIVE CLEAR) 
VERIFY PACK ACKNOWLEDGE 
VERIFY RECAL IBRATION 


Fay ieee CLEAR USER*S ERROR CALL 


2: STORE DESCRIPTOR 
;MOVE SP TO USERS ERROR CALi 
sCLEAR ERROR CALL 
;MOVE SP TO NO ERROR RETURN 


SETUP TO READ ALL REGISTERS 
T RMER2 


:BR IF NO ERROR DETECTED 

:GET OVER ERROR NUMBER 

sERROR DEFINED BY GET SUBROUTINE 
:XFER ERROR TO USER AND 

:GET ERROR NUMBER. 


;GET RMER2 AND SAVE FOR LATER 


SC RAE RAE AERA EEERREE ARERR EEEEEEREREEAH EERE ERE HERE ES 


SE A es eee eh 


elie ee eee ee ee ee ee eee ee ee | 


58 
59 032262 
60 052266 


61 
62 932270 


72 932320 
73 032320 
a 032326 


360 
2360 
2366 


32420 
sSeSe 


FW SOHN ARGU OOBIRARAO LOS RR 


001451 


032737 
001431 


032737 
001501 


004737 
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033146 
043672 
000004 
032300 
033136 
040000 
045344 
000004 
032340 
0331536 


000100 


035770 


000004 
032400 
0331356 


045462 


000004 
032430 
033136 


010000 


035770 
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>SELECT tie — DEVICE AVAILABLE IF Bil 15 SET IN TASK 


;SELECT DEVICE?? 
BPL 4$ NO! ! 
JSR PC .DEVSEL :GO SELECT DEVICE 
BR 4$ [NO ERROR - CONTINUE 
{WORD 0 ZERROR NUMBER FROM DEVSEL 
3$: ADD , (SP) : TRANSFER ERROR TO USER 
000000 MOVB 38-2. a(sP) 
JMP 37$ 
wet e eee eee eee RRRARASAARARASERSA SEER SESS ES ESE SES ESE SLOLSOSESESSSOS ES © 
j CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 
033146 BIT #81114, 39% :CLEAR CONTROLLER?? 
BEQ 13$ NO! ! 
JSR PC.CNTCLR :GO CLEAR CONTROLLER 
BR 7s :CONTINUE - NO ERROR 
S$: .WORD 0 ;ERROR NUMBER FROM CNTCLR 
6$: ADD #4, (SP) : TRANSFER ERROR TO USER 
000000 MOVB  5$,a(SP) 
JMP 37$ 
SEERA REE EEE KEKE RAKE ERE ED 
;VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 
033146 BIT #B1T6, 39% :VERIFY?? 
BEO 13$ NO! ! 
JSR PC GET :GO GET STATUS 
BR 108 :NO ERROR GETTING STATUS 
8$ .WORD 0 ;ERROR FROM GETTING STATUS 
9$ ADD #4, (SP) : TRANSFER ERROR TO USER 
000000 MOVB  8$,a( SP) 
JMP 37$ 
10$: JSR PC,CLRSTS :GO VERIFY STATUS CLEAR 
BR 13$ :NO ERROR IN CLEAR 
BR 12$ 
4 0 :ERROR IN STATUS CLEAR 
128: ¥s¥ (SP)+ :STRIP RETURN ADDRESS TO 
ADD #4, (SP) : SUBROUTINE AND TRANSFER 
000000 MO 11$,a(SP) “ERROR TO USER 
JMP 37$ 
STEERER KERR EKEREEEEEKEE REE EEERERAEERKEEEREE RENTER EER EH 
“EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME [5 
:NOT VALID - 
033146 ie #B1T12,39% :PAC< ACKNOWLEDGE ?? 
BEQ 25$ NO!: 
JSR PC,GET 


rT ee 


nent ee ee = 
————— —— 


“7RMNBO RMOS/3/2 + CINL TST 2 


TEST PREPARATION MODULE 


a? od 


PUPIM NINMIP PONY --- 

WWNAMBWN 0 OW No 
2oooQO 00 oO 
WW 


mr 
oo 
WAwN 
Nm 
wi 
Ww 
oO 


kk i a et od 0 td od ed et es 
Ww 
LAAN AIAN re 3 GeGeteaeae 
MPUMIMININN 
AAD 
mr —_ 
© Nm 


624 
32632 


Lw 
—O DONA NF wr" O COON? WS Who =O Boo Ge 
pet ety ete ti CDoodVOoOO0o0oO 
mw 
oO 
Ww 
x 


AA MANMAUAYIVIUYVIIE BREE HL HHL HE 


ISGSVEALAR 


0004" 1 
000401 


000000 
062716 
113776 
060137 


032737 
001061 


004737 


032737 
007427 


004737 


000004 
032472 
033126 
000100 
000023 
000000 
000200 
036240 
000004 
052554 


036602 


000020 


035770 


000004 
032616 


046342 


000004 
032644 


002000 
004000 


035770 
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000000 


001350 


001412 
001553 
001554 


000000 


033146 


000000 


000000 


033146 
055146 


BR 16% sNO ERROR GETTING RMDS 
BR 15$ 
14$: -WORD 0 
15$: ADD #4,(SP) ; TRANSFER ERROR TO USER 
MOVB 14$,a(SP> 
JMP 37$ 
16%: BIT #VV,RMDSI 31S VOLUME VALID?? 
BNE 25$ s¥es:! 
MOV #PAKACK!GO,RMCS10 ;LOAD PACK ACK COMMAND 
MOVB #RMCS1,PUTINX ;SETUP REGISTER INDEX TABLE 
MOVB #200, PUTINX+1 
JSR PC,PUT ;GO WRITE COMMAND 
“ Lb 3;NO ERROR LOADING REGISTER 
17$: -wORD 0 ;ERROR FROM PUT SUB 
188: ADD #4,(SP) ; TRANSFER ERROR TO USER 
MOVB 17$,a(SP) 
BR 37% 
19$: JSR PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 


Pe REET ERATE KEKE EATERS ERASED 


= VERIFY PACK ACKNOWLEDGE IF #BIT4 SET IN TASK 
BIT #BIT4, 39$ VERIFY PACK ACKNOWLEDGE ?? 


BEQ 25$ 
JSR PC,GET :GO GET STATUS 
BR 223 NO ERROR GETTING STATUS 
RR 21$ 
20$: E D 0 sERROR FROM GET SUB 
21s: ADD 44, (SP) ; TRANSFER ERROR TO USER 
MOVB 20$,a(SP) 
BR 37% 
2ecs: JSR PC,ACKSTS 3;GO CHECK ACKNOWLEDGE 
BR 25$ sNO ERROR 
BR 24$ 
23: “ D 0 :PACK ACKNOWLEDGE ERROR 
243: TST (SP) + ZSTRIP RETURN TO SUB AND 
ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB 23$,a(SP) 
BR 373 


PERE EERE EERE EERE TERRE ERE EE EE 
sRECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ‘’SKI'’ IS SET 

:OR "PIP'’ IS ACTIVE. 

ne DRIVE IF BIT 10 IS SET 


BIT #B1T10,39% :sRECALIBRATE DRIVE ? 
: BNE 9 ¥E5/ ' 
BIT #B1T11,39$ sRECAL IBRATE?? 
BEQ 38$ 3NO!! 
JSR PC,GET :GO GET RMDS 
BR 28% 3NO ERROR GETTING RMDS 


EL 
SS A ne ae ee ne ee 


CZRMNBO RMOS/3/2 FCINL TST 2 
TEST PREPARATION MODULE 
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172 032712 000401 BR 273% 

173 032714 000000 263: .- WORD 0 ZERROR FROM GET SUB 

174 032716 062716 000004 273: ADD #4, (SP) 7 TRANSFER ERROR TO USER 

175 032722 113776 032714 000000 MOVB 26$,a(SP) 

fs 327 000502 BR 37$ 

178 032732 032737 040000 0273150 288: BIT #SkK1,40$ sWAS SKI SET ? 

179 032740 001004 BNE 29$ 7YES, GO RECA LIBRATE 

180 032742 032737 020000 007350 BIT #PIP,RMDS] IS PIP A ACTIVE?? 

4 032750 001474 BEQ 383 =NO! ! 

1835 032752 005037 001446 293: CLR RMDCO ;CLEAR CYLINDER ADDRESS 

184 032756 005037 001420 CLR RMDAO ;CLEAR TRACK/SECTOR ADDRESS 
185 032762 012737 QO00007 001412 MOV MRECAL !GO,RMCS10 ;LOAD RECALIBRATE COMMAND 
186 032770 112737 034 001553 MOVB #RMDC ,PUT INX ;MAKE CYLINDER ADDRESS AND 
187 032776 112737 000006 001554 MOVB #RMDA,PUTINX+1 ;TRK/SEC ADDRESS LGOK LIKE SEEK TO ZERO 
188 033004 112737 000000 001555 MOVB #RMCS1,PUTINX+2 ;AND REGISTER INDEX 

189 033012 112737 000200 001556 MOVB #200,PUTINX+3  ;SET TERMINATOR 

90 033020 004737 036240 JSR PC ,PUT 3;GO ISSUE RECALIBRATE 

191 633024 (000410 BR 31$ ;NO ERROR 

192 033026 000401 BR 30$ 

193 033030 00000 . WORD 0 Z;ERROR IN REGISTER TRANSFER 
194 033032 062716 000004 30$: ADD #4, (SP) ; TRANSFER ERROR TO USER 

195 033036 113776 033030 000000 MOVB 30$-2 ,a(SP) 

i 033044 000434 BR 37$ 

He 033046 004737 036602 31$: JSR PC,TIMOUT sWAIT FOR COMPLETION 

200 ° LEER ERE RARER ETRE RARER eRe eRe eee 
201 = VERIFY RECALIBRATE IF BIT 3 SET IN TASK 

202 033052 032737 O00010 033146 BIT #BIT3,39$ aventry RE CALIBRATE ?? 

ser 033060 001430 BEQ NO! 

205 033062 004737 035770 JSR PC GET :GO GET STATUS 

206 033066 000410 BR 34% NO ERROR GETTING STATUS 
207 033070 060401 BR 33$ 

208 033072 000 32$: . WORD “7 sERROR FROM GET 

209 033074 062716 000004 33$: ADD , (SP) ; TRANSFER ERROR TO USER 
210 0335100 113776 033072 000000 — MOVB 538. @(SP) 

$13 033106 000413 RR 37$ 

213 033110 004737 047136 343: JSR PC,RCLSTS 3GO CHECK RECALIBRATE 

214 033114 000412 BR 38$ ZNO ERROR DURING RECALIBRATE 
215 033116 000401 BR 36$ 

216 0337120 00000 353: . WORD 0 sERROR DURING RECALIBRATE 
217 033122 005726 36$: TST (SP) + :STRIP RETURN TO SUB AND 
218 033124 2716 000004 ADD #4,(SP) : TRANSFER ERROR TO USER 
219 033130 115776 033120 000000 MOVB 35$.a(SP) 

220 033136 162716 000002 37$: SUB #2,(SP) :MOVE SP BACK BEFORE ERROR 
221 033142 000240 38$: NOP 

$35 033144 000207 RTS PC :RETURN TO USER 

224 033146 000000 39$ -WORD OQ - TASK/VERIFY DESCRIPTOR 

225 033150 000 40$ -WORD 0 s CONTAINS RMER2 


* 


HCO OW NAMA WP ~O.0OE NAWaAWS 


22 


5 
56 033224 


062716 
105076 
162716 


005737 
001402 
000137 


010046 
005000 


00 
103370 


012737 


000006 


001512 
034452 


001412 
000002 
000046 


000003 035070 


MACRO ¥O06.00 4-APR-81 71:43:32 PAG! 


101360 


G le 
F 16 


-SBTTL BAD SECTOR MODULE 


;THE MODULE IS INTENDED TC BE CALLED PRIOR TO CALLING THE BUFFER 
;GENERATOR SUBROUTINE, AND PRESERVES THE ‘PUT BUFFER'' SO THAT THE 
‘OPERATION. ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 


:THE MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED 
:SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘‘ASNDA'' AND *ASNDC 


:S0 THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 


* THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS: 


sRECOVER THE MANUFACTURES / 
3 TRACK = LAST TRACK (RMO2/3 


(1) RECOVER THE BAD SECTOR FILES AND 

(2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE ONi 
ELECTED IS NOT AVAILABLE FOR USE. 


INFORMATION REQUIRED BY THE MODULE INCLUDES: 
(1) .RMDCO — THE DESIRED CYLINDER, 
(2) .RMDAO - THE TRACK »ND SECTOR ADDRESS. 
(3) JRMWCO - THE WORD CONT, 
(4) .RMCS10 - THE COMMAND, 
(5)  RMOFO - THE FORMAT MODE 


CALL 
JSR PC ,BADSCT ;CALL SUBROUTINE 
BR fe sRETURN HERE IF NO ERROR 
TYPE »-MESSAGE sRETURN HERE IF THE BAD SECTOR FILE 
; CANNOT BE RECOVERED. 
ERROR N ;THE EMT OFFSET NUMBER 'N' IS DEFINED 
:BY BAD SECTOR MODULE. 
SADSCT: 
ADD #6, (SP) ;CLEAR ERROR NUMBER IN USER'S 
CLRB @(SP) sERROR CALL. 


SUB #6, (SP) 
TEST ‘MEDIA ENABLE*’ TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
>HAVE BEEN RECOVERED 
TST ME DENB :HAS BAD SECTOR FILES BEEN RECOVERED ? 
Q 1$ 7BR IF NO 
JMP 54$ :YES, BAD SECTOR FILE IS AVAILABLE 


1p iy BAD SECTOR FILE FROM CYLINDER = 822., 
= 4 AND RMO5 = 18.). ALSO, SAVE THE USER'S 


;PUT BUFFER 
1$: 


MOV RO,-(SP) +2 PUSH RO ON STACK 


CLR RO START WITH RMCS1 
2$: MOV PUTBUF (RO) BUFFER CRO) 
ADD #2,R0 sADVANCE TO NEXT BUFFER POSITION 
" CMP #46 RO FER 


sEND OF BUF 
BHIS 2$ “NC i 


;SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE 
:SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3 SECTORS) 


MOV #5 ,68% SRETRY COUNT 


-- See ee ene ee 
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§7 033232 012737 001466 001446 MOV #822. ,RMDCO ;DESINED CYLINDER = 822. 

58 033240 013737 601334 001420 MOV LSTRK -RMDAO {STARTING LAST TRACK, SECTOR = 0 
59 033246 012737 177376 001414 MOV #-258.,RMWCO 32 + 256. WORDS (2'°S COMP) 

60 033254 012737 010000 001444 MOV #FMT16,RMOFO 316 BIT FORMAT 

61 033262 012737 103370 001416 MOV #MFGFIL,RMBAO POINT TO MANUFACTURES FILE BUFFER 
°$ 033270 012 001553 MOV #PUT INK ,RO ;RO POINTS TO REGISTER INDEX TABLE 
44 033274 112720 000006 MOVB  #RMDA,(RO)+ - 

65 033300 112720 000034 MOVB § #RMDC. (RO) + 

66 033304 112720 000002 MOVB  #RMWC.(RO)¢ 

67 033310 112720 000032 MOVB = #RMOF . (RO) + 

68 033314 112720 000004 MOVB  #RMBA- (RO) + 

69 033320 112720 000000 MOVB #RMCS1, (RO)+ 

70 033324 112720 000200 MOVB #200, (RO)+ 

71 033330 012600 MOV (SP)+,RO ;:POP STACK INTO RO 

73 ;SET GET INDEX TABLE FOR READING STATUS 

74 033332 3$: 

75 033332 004737 035704 JSR PC,GETSTS ;SETUP GET INDEX REGISTER FOR STATUS 
76 633336 004737 035770 JSR —PC..GET GET REGISTERS 

77 033342 000411 BR 5$ :BR IF NO ERROR 

78 033344 000401 a: : JUMP OVER ERROR NUMBER 

79 033346 000000 WORD 0 ;ERROR DEFINED BY GET SUB 

80 033350 062716 000006 4$: ADD: #6, (SP) :XFER ERROR TO USER AND 

81 033354 113776 033346 000000 . MOVB 4$-2,a(SP) :GET ERROR NUMBER. 

82 033362 000137 034156 JMP 42$ 

84 033366 013737 001400 035102 58: MOV RMER21 ,73$ ;GET RMER2 AND SAVE FOR LATER 

86 /CLEAR THE DEVICE USING DRIVE CLEAR COMMAND 

B? 033374 012737 000011 001412 #DRVCLR GO, RMCS 10 ;LOAD COMMAND IN PUT BUFFER 
88 033402 004737 036240 JSR PC PUT ;OUTPUT COMMAND 

89 033406 000411 BR 8$ :RETURN HERE IF NO ERROR 

90 033410 000401 BR 7$ GET AROUND ERR 

91 033412 000000 6$: .WORD 0 SERROR # GOES HERE. 

92 033414 062716 000006 7$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 

93 033420 113776 033412 000000 MOVB  6$,a(SP) ;MOVE ERROR NUMBER TO USER 

94 033426 000157 034156 JMP 42$ 

96 033432 004737 036602 8$: JSR PC, TIMOUT ;WAIT FOR COMPLETION 

97 033436 004737 035770 JSR PC GET :GO GET STATUS 

98 033442 000411 BR 11$ =RETURN HERE IF NO ERROR 

99 033444 000401 BR 10$ :GET AROUND ERROR # 
100 033446 000000 9$: -WORD 0 [ERROR # GOES HERE 

101 033450 062716 900006 10$: ADD #6, (SP) >MOVE SP TO USERS ERROR CALL 

102 033454 113776 033446 000000 MOVB  9$,a(SP) :MOVE ERROR # TO USERS ERROR CALL 
103 033462 000137 034156 JMP 42$ | 
105 033466 004737 050700 11$: JSR PC ,DRVSTS ;GO VERIFY DRIVE CLEAR COMMAND 
106 033472 000412 BR 14$ ;RETURN HERE IF NO ERROR 

107 033474 000401 BR 13$ =GET AROUND ERROR 

108 033476 000000 12$:  .WORD 0 SERROR # GOES HERE - 

109 033500 005726 138: TST (SP)+ :STRIP RETURN TO SUBROUTINE 

110 033502 062716 000006 ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 

111 033506 113776 033476 000000 MOVB = 12$,,a(SP) :MOVE ERROR # TO USER CALL 

11g 033514 000137 034156 jMP 42$ 
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A [ses tetedestetneeeeae ——=— 


114 ;1SSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 

115 033520 148%: 

116 033520 032737 000100 001350 iT #VvV.RMDSI 21S VV RESET ?? 

a4 033526 001052 BNE 2 3$ zNO !! 

119 033530 012737 000023 001412 MOV #PATACK!GO,RMCS10 - LOAD COMMAND 

120 033536 004737 036249 JSR PC,PuT :GO PUT COMMAND TO DRIVE 

121 035542-, 000411 BR 17$ — gRETURN HERE IF NO OUTPUT ERROR 
122 033544 000401 BR 16$ :GET AROUND ERROR # 

123 033546 0 15$: -WORD 0Q sERROR # GOES HERE 

124 033550 062716 000006 16$: ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
125 035554 113776 033546 000000 MOVB 15$,a(SP) ;MOVE ERROR # TO ERROR CALL 
1st 033562 000137 034156 , JMP 42% 

iZ 

128 035566 004737 036602 17$ JSR PC,TIMOUT ;WAIT FOR COMPLETION 

129 033572 004737 035770 JSR PC,GET >GO GET STATUS FOR PACK ACK 
130 033576 000411 BR 20$ sRETURN HERE IF NO ERROR 

131 033600 000401 BR 19$ :GET AROUND ERROR # 

132 033602 000000 18$ . WORD ;ERROR # GOES HERE 

133 033604 062716 000006 19$ ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
134 033610 113776 033602 000000 MOVB 18$,a(SP) sMOVE ERROR # TO CALL 

HP 033616 000137 034156 JMP 42$ 

137 033622 004737 046342 20$: JSR PC,ACKSTS :GO VERIFY ACKNOWLEDGE STATUS 
138 033626 000412 BR 23$ sRETURN HERE IF NO ERROR 

139 033630 000401 BR 22$ >GET AROUND ERROR # 

140 933632 000000 21$: -WORD 0 sERROR # GOES HERE 

141 0336 005726 22$: TST (SP) + ;STRIP RETURN TO SUBROUTINE 
142 033636 062716 000006 ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
143 033642 113776 033632 000000 MOVB 21$,a(SP) sMOVE ERROR # TO USERS ERROR CALL 
ive 033650 000137 034156 JMP 42$ 

146 sRECALIBRATE THE DRIVE IF ‘’SKI'’ OR ‘PIP IS SET 

147 033654 23$: 

148 0335654 032737 040000 035102 BIT #SK1,75$ sWAS SKI SET ? 

149 033662 001004 BNE 24$ :YES, GO RECALIBRATE 

150 03 032737 020000 001350 BIT #PIP,RMDS! 3i$ PIP SET ?? 

12 033672 001452 BEQ 32$ SND i 

153 033674 012737 000007 001412 24$: MOV #RE CAL !GO,RMCS10 ;LOAD RECALIBRATE COMMAND 
154 035702 004737 036240 JSR -PUT :PUT THE RECAL COMMAND 

155 033706 000411 BR 26$ sRETURN HERE IF NO ERROR 

156 035710 000401 BR 25$ :GET AROUND ERROR # 

157 033712 000000 -WORD 0 ;ERROR # GOES HERE 

158 033714 062716 000006 25$: ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
159 033720 113776 033712 000000 MOVB 25$-2,a(SP) ;MOVE ERROR # TO USERS CALL 
i 033726 000137 034156 JMP 42$ 

162 033732 004737 036602 263: JSR PC, TIMOUT ;WAIT FOR RECALIBRATE TO COMPLETE 
163 033736 004737 035770 JSR PC,GET :GO GET RECAL STATUS 

164 033742 000411 BR 29$ sRETURN HERE IF NO ERROR 

165 033744 000401 BR 28$ :GET AROUND ERROR # 

166 035746 00000 c7$: -WORD Q ;ERROR # GOES HERE 

167 033750 062716 000006 28$: ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
168 033754 113776 033746 000000 MOVB 27$,a(SP) sMOVE ERROR TO USERS CALL 
4 033762 000137 034156 JMP 42% 
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oo 
AB 
ew 
& 


VI 


034044 
034052 


SRLEARANLESELR 
© > 
Ww 
: 


202 034120 
203 034122 
204 034124 
205 034126 
206 034132 
207 034140 
208 

209 034144 


210 034152 
1 034154 


MPIMPoMMNoNMNM NN 
MN I St 
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rmron 
aS) 


004737 
e 


000137 


012737 


000137 


004737 
004737 


000137 
004737 


000137 


032737 
001001 
000446 


005337 
100026 


032737 
001004 


032737 
001422 
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-047136 


000006 
033776 
034156 


000073 
036240 


000006 
034036 
034156 


036602 
035770 


000006 
034072 
034156 


051502 


000006 
034122 
034156 


040000 
035070 


100720 


100000 
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000000 


001412 


000000 


000000 


000000 


001336 


001352 


001400 





293: JSR PC,RCLSTS GO VERIFY RECALIBRATE STATUS 
BR 32$ =RET URN HERE IF NO ERROR 
BR 31$ 3GET AROUND ERROR @ 

$0$: . WORD 0 = ERROR # GOES HERE 

31$: TST (SP) + :STRIP RETURN TO SUBROUTINE 
ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
— +> Coulee s;MOVE ERROR # TO USERS CALL 
J ¢ 


a THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 


MOV ARH'!GO,RMCS10 ;LOAD READ HEADER AND DATA COMMAND 
JSR PC ,PUT :PUT COMMAND 
BR 35$ sRETURN HERE IF NO ¥ saat 
BR 34$ :GET AROUND ERROR y 

33$: . WORD ;ERROR # GOES HERE 

34$: ADD #6, (SP) ;MOVE SP TO USERS ERROR CALL 
MOVB 33$,a(SP) sMOVE ERROR # TO USERS ERROR CALL 
JMP 42$ 

35$: JSR PC, TIMOUT sWAIT FOR READ OPERATION TO COMPLETE 
JSR PC,GET ;GO GET STATUS FOR READ OPERATION 
BR 38$ sRETURN HERE IF NO ERROR 
BR 37$ :GET AROUND ERROR # 

36$: -WORD 0 sERROR # GOES HERE 

37$: ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
MOVB 36$,a(SP) sMOVE ERROR # TO CALL 
JMP 42$ 

38$: JSR PC, ,DTASTS :GO VERIFY RESULTS OF READ OPERATION 
BR 41$ sRETURN HERE IF NO ERROR 
BR 40$ :GET AROUND ERROR # 

39$: -WORD 0Q sERROR # GOES HERE 

40$: TST (SP) + :STRIP RETURN ADDRESS TO SUBROUTINE 
ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
MOVB 39$,a(SP) ;MOVE ERROR # TO USERS CALL 
JMP 42$ 

41$: BIT #TRE ,RMCS11 sANY CONTROLLER ERRORS ? 
BNE 42$ :BR IF YES 
BR 48$ ;NO ERRORS DETECTED 

bd FREAK EEE EEE EEK EERE KEKE EE 

;AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 

;THE SECTOR WILL BE RETRIED IF POSSIBLE. 

42$: DEC 68$ :YES, DECREMENT RETRY COUNT AND 

BPL - 45$ sRETRY IF COUNT NOT NEGATIVE. 


>THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 


43$: BIT ADCK!HCRC!HCE!FER!ECH,RMERT I sANY MEDIA RELATED ERRORS ? 
BNE 44$ :YES, GO TRY NEXT AVAILABLE SECTOR 
BIT #BSE ,RMER21 sANY MEDIA RELATED ERRORS ? 
BEQ 46$ :NO, EXIT AND REPORT ERROR ON RETURN 


SE —_ 
tr 


ee 


| ore 
' 


256 034310 
257 
258 034316 
259 034524 
260 


261 
262 034330 
034350 


278 034412 
034414 


280 
281 034416 
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BAD SEC’ MODULE 


062737 


001407 


012737 
162716 
000137 


000240 


000137 


022737 


012600 


TST 2 


000002 
000012 


000040 
000003 


000006 
033332 


020000 


0C0004 
035064 


104376 


000012 
104376 


000003 
033332 


000374 


177777 


000006 


103370 
104376 


CO et Se sessment 
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001420 
001420 


001420 


035070 


144674 


001416 


001420 
001416 


035070~, 


103370 
104376 


rn 
Stw \ 


;THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 
:DUE TO THE MEDIA, SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM 
:ANOTHER AREA ON THE LAST TRACK 


44%: ADD #2,RMDAO ZADVANCE SECTOR ADDRESS BY 2 
_ CMPB #10. ,RMDAO sQUIT IF ALL MFG SECTORS HAVE BEEN 
BEQ 46$ : TRIED. 
CMPB #32. ,RMDAO QUIT IF ALL USER SECTORS HAVE BEEN 
BEQ £6$ ; TRIED. 
MOV #3,68$ sREINSTATE RETRY COUNT FOR THIS SECTOR 
45$: SUB #6, (SP) s;MOVE SP BACK TO NO ERROR 
JMP 3$ ZRETRY THE READ OPERATION 
;THE BAD SECTOR FILE CANNOT BE READ 
46$: NOP 
BIT #SW15.aSWR : INHIBIT MESSAGE ? 
BNE 47$ s¥Es 
SUB #4, (SP) :MOVE SP TO ERROR RETURN 
47$: JMP 67$ :;GO TO MODULE EXIT 


sTHE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE IF 
:THIS IS THE MGF FILE OR ELSE DONE. 


48$: CMP MUSRFIL,RMBAO ;WAS THE USER FILE READ ?? 
BEQ 52$ :YES - READ IS COMPLETE 
MOVB #10. ,RMDAO sREAD THE USER FILE LAST TRACK, SECTOR = 10. 
MOV #USRFIL,RMBAO ;POINT TO USERS FILE BUFFER 


MOV #3,68$ sRELOAD THE RETRY COUNT FOR THIS SECTOR 
JMP 3$ :GO READ THE USER FILE 


j Dummy THE BAD SECTOR FILES 
"MOV RO,-(SP) ::PUSH RO ON STACK 
; PUSH R1 ON STACK 


MOV #252.,R1 :R1 = NUMBER OF ENTRIES IN FILES 
:RO = ADDRESS INDEX TO FILE STORAGE 


50$: MOV #-1,MFGFIL(RO) ENTER ALL ONES IN MFG FILE 
MOV eI ,USRFIL(RO) ENTER ALL ONES IN USER FILE 
TST (RO) + sADVANCE ADDRESS 
DEC R1 sDECREMENT COUNT 
BNE 50$ sCONTINUE IF NOT DONE 
rn + ed :CLEAR HEADER, CLEAR ID\& SERIAL NUMBERS 
51$: CLR MF GF IL (RO) ’ 
CLR USRF IL (RO) \ 
TST (RO) + sADVANCE ADDRESS \ 
DEC R1 \ 
BNE 51$ 
MOV (SP)+,R1 :sPOP STACK INTO R1 
MOV (SP)+,RO ;sPOP STACK INTO RO 
gse! MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER \ 


CZRMNBO RMO5/3/2 FCTNL 


BAD SECTOR MODULE 


ee ee ee — 
~~ ~~ —_ 


034416 


NAINA ANON Wi 
—_— 3 = So 
WOOO UNS WI 


i 
322 034552 
325 

324 034560 
$e 034564 


6 
327 034572 
328 034576 
329 


010046 


010237 


012737 


004737 
012737 


004737 
000137 


013737 
013737 
013737 


TST 2 


177777 
101 360 
090092 


060046 


001446 
001420 


001414 


000400 
000002 


000402 


035070 


103404 


034602 
104412 


034602 
035042 


001514 
001516 
035070 
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001412 


035100 


035100 


035074 


035076 
035072 


53$: MOV 


RO,-(SP) 
RO 
#~-1,M 
#2, 
#46,RO 
3$ 
(SP)+,RO 


3PUSH RO ON STACK 


:RO IS REGISTER INDEX 
MEDENB 
BUF FER(RO) ,PUTBUF (RO) 
RO sADVANCE RO 
;DONE ?? 


:zPOP STACK INTO RO 


° SSAA RRA EAR AKER 


: VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILC 
sAND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE 


ecaae IS IN ANY OF THE FILES. 


FREER EERE EERE KARE EKER EK EKKKREREKRREREREEERETEEERRERAHEEEHEHED 


55$: CMP 


56$: SUB 


57$: MOV 
;LOAD PARAMETERS AND SEARCH THE 


RO,-(SP) 


RMDCO,ASNDC 
= eASNDA 


RMWCO,RO 
RO 
#256 


Ro. 68$ 


os 
i aa 


L080 INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 


;sPUSH RO ON STACK 
¢¢PUSH R1 ON ciaee 


sPUSH R2 ON STACK 
; LOAD REQUESTED CYLINDER, TRACK 
+ AND SECTOR ADDRESS IN ASSIGNED STORAGE 
;R2 = NUMBER OF SECTORS 
;RO = WORD COUNT 
MAKE NUMBER POSITIVE 
"RI = NUMBER OF WORDS PER SECTOR 
ans THIS A HEADER AND DATA COMMAND ?? 


CHANGE WORDS PER SECTOR 


| iJ THERE A FULL SECTOR ?? 


YES 
“1S RO ZERO ?? 
:YES 


: INCREMENT FOR PARTIAL SECTOR 


; SUBTRACT ONE SECTOR FROM WORD COUNT 
;s INCREMENT SECTOR COUNT 


sSAVE SECTOR COUNT 
MFG/USER SECTOR FILE FOR THE 


SASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE 


:SECTOR COUNT IS MORE THAN ONE . 
#MF GF IL+14,72$ 


MOV 


JSR 
MOV 


JSR 
JMP 


58$: MOV 


MOV 
MOV 


SF 


PC,58$ 
MUSRF IL+14,72$ 


PC ,58$ 
66$ 


ASNDC , 70$ 
ASNDA, 71$ 


: THE STARTING ADDRESS OF MFG FILE 
TO BASE ADDRESS STORAGE. 

“GO SEARCH FILE 

;LOAD STARTING ADDRESS OF USR FILE 


:TO BASE ADDRESS STORAGE. 
:GO SEARCH FILE 
sDONE WITH ALL FILE SEARCHES !! 


;LOAD COMPARING CYLINDER ADDRESS 
COMPARING TRACK, SECTOR ADDRESS 


“LOAD 
68$,69$ :LOAD NUMBER OF SECTORS TO CONFIRM 


>SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 


i 8 ee 


Oe ree 
ieee — 


335 


350 034662 
351 


357 034670 
358 034670 
359 034674 


369 034744 
370 034750 
371 
372 
373 
374 
375 034752 


376 034752 
377 034756 
378 


CZRMNBO RMOS/3/2 FCTNL 
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001010 


126037 
001004 


126037 - 


001402 


022020 
000760 


105237 


005337 
001442 


105237 


TST 2 


035100 
177777 


035074 


000003 


000002 


001516 
000037 


001516 
001517 
001335 


001516 
001514 
001466 


001514 


035072 


035076 
000037 


035076 
035077 
001335 


035076 
035074 
001466 


035074 
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035077 


035076 


001516 
001517 


001514 


035074 


035077 


035074 


THE COMPARING SECTOR IS NOT IN 


>CYLINDER, TRACK AND SECTOR ADDRE 


59$ 
MOV 72$,R0 
60$: CMP #71, (RO) 


6 
CMP (RO), 70$ 


BNE 62$ ;BR 


sFILE ENTRY EQUALS COMPARING CYL] 
its, COMPARING TRACK, AND SECTOR. 


CMPB 3(RO) ,71$+1 


SEQ 01! 


SS 
;LOAD THE BASE ADDRESS IN RO 


is THIS FILE TERMINATOR ? 


IF YES 
oo te —_ ENTRY = COMPARING CYLINDER ? 


NDER. SEE IF THE NEXT ENTRY EQUALS 


i a ENTRY = COMPARING TRACK ? 


BNE 62$ BR 


CMPB 2(RO),71$ 


BEQ 63$ : 


sNO, ADJUST ed POINTER IN BAD FILE 
sAND CONTINUE SEARCH 


62$: CMP (RO) +, (RO) + 
60$ 


;DOES ee ENTRY = COMPARING SECTOR ? 


BR IF Y 


:THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD - ae FILE. 


jADVANCE THE ASSIGNED SECTOR AND 


START THE SEARCH ALL OVER 


INCB ASNDA ; INCREMENT SECTOR 
CMPB 431.,ASNDA :SECTOR OK ?? 
BHIS 58$ ii Sees 
CLRB ASNDA :CLEAR SECTOR AND ADVANCE TRACK 
INCB ASNDA+1 
TRACK OK ? 


CMPB LSTRK+1,ASNDA+1 
58$ 


CLR ASNDA 

INC ASNDC 

CMP #822. ,ASNDC 
BHIS 58$ 

CLR -ASNDC 

BR 58$ 


s¥és 2! 

zCLEAR TRACK AND SECTOR 
s INCREMENT CYLINDER 
CYLINDER OK ?? 


7¥es!: 
sSTART AT CYLINDER 0 
; SEARCH NEXT SECTOR 


THE BAD SECTOR FILES. 


DECREMENT THE 


sNUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 


:IS NOT ZERO. 
64$: 


DEC 69$ 

BEQ 67$ 

INCB 71$ 

C #31.,71% 
BHIS 5$ 

CLRB 71$ 

INCB 71$+1 
CMPB LSTRK+1,71$+1. 
BHIS 65$ 

CLR 71$ 

INC 70$ 

CMP #822. ,70$ 
BHIS 65$ 

CLR 70$ 


:DECREMENT NUMBER OF SECTORS TO COMPARE 
;DONE IF ZERO 


; INCREMENT THE COMPARING SECTOR 
: SECTOR x 7? 


CLEAR’ SECTOR 
: INCREMENT TRACK 
TRACK | Ok ?? 


YE 

:CLEAR SECTOR TRACK 
; INCREMENT CYLINDER 
: CYLINDER OK ?? 


:START AT CYLINDER 0 


BAD SECTOR 


eee ae ee 


392 035040 
393 


394 

395 035042 
396 935042 
397 035050 
398 oeehan 


408 035076 
409 035100 
410 035102 


000671 
013737 
013757 
012602 
012601 
012600 


000000 


001 
001 
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001446 
001420 


65$: BR 59$ 3 SEARCH NEXT SECTOR 
i THE SECTOR AND RETURN TO USER 


MOV ASNDC ,RMDCO ;LOAD CYLINDER 

MOV ASNDA,RMDAO ;LOAD TRACK AND SECTOR 

MOV (SP)+,R2 3zPOP STACK INTO R2 

MOV (SP)+,R1 3z:POP STACK INTO R1 

MOV (SP)+,RO 33POP STACK INTO RO 
67$: NOP 

RTS PC 


>THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 


. 683: -WORD 0 sRETRY COUNT/ NUMBER OF SECTORS REQUIRED 
69$: «WORD 0 sNUMBER OF. SECTORS TO COMPARE 
70$ -WORD 0Q > COMPARING CYLINDER 
71$ -WORD 0Q ; COMPARING TRACK AND SECTO 
72$ -WORD 0 ;BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 
73$ -WORD QO ; CONTAINS RMER2 


SE ——— ae 


ete. 


8 13 
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BUFFER GENERATOR SUBROUTINE 


1 ~SBITL BUFFER GENERATOR SUBROUTINE 
§ ; THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. THE 
i ;BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG. THE BUFFER 
5 >CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS 
é :FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO. 
? ;HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC, 
: :RMDA AND RMOF . 
| 10 :RO = ADDRESS OF DATA BUFFER 
| 1 :R1 = LENGTH OF DATA BUFFER 
12 ;R2 = ADDRESS OF DATA PATTERN 
13 :R3 = LENGTH OF DATA PATTERN 
1 :R4 = SECTOR COUNT 
| 16 7 CALL: 
17 :(1) JSR PC, GENBUF 
18 ia. RETURN HERE 
20 635104 GENBUF : 
035104 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
035106 010146 MOV R1,-(5P) :;PUSH R1 ON STACK 
035110 010246 MOV —- R2,, =< SP) ;;PUSH R2 ON STACK 
035112 34 MOV = R3,~(SP) ;7PUSH R3 ON STACK 
035114 010446 MOV R4,-(SP) > PUSH R4 ON STACK 
21 035116 001416 MOV RMBAO , RO ;LOAD DATA BUFFER ADDRESS 
22 035122 013761 001414 MOV = RMWCO,R1 ;LOAD WORD COUNT 
23 035126 013737 001446 035336 MOV —- RMDCO,60$ ;LOAD STARTING CYLINDER ADDRESS 
24 035134 013737 001420 035340 MOV RMDAO,65$ ;LOAD STARTING TRACK,SECTOR ADDRESS 
26 035142 032737 000002 001412 10$: BIT #31T1,RMCS1O = ; WRITE HEADER & DATA?? 
27 035150 001445 BEQ 25$ . :NO!! 
28 035152 013719 035336 MOV 60$, (RO) WRITE HEADER WORD #1 
29 035156 052710 140000 BIS WMSE!USE,(RO)  ;SET BAD SECTOR FLAGS FOR GOOD SECTOR 
30 035162 012702 000035 MOV #29. .R2 ;R2 = MAXIMUM SECTOR ADDRESS (29.) 
32 035166 032737 010000 001444 BIT #EMT16,RMOFO 18 BIT FORMAT?? 
33 035174 001404 | BEQ 
34 035176 052710 010000 BIS #FMT16, (RO) SET 16 FORMAT BIT IN HEADER 
35 035202 012702 000057 mOV #31. ,R2 “CHANGE MAXIMUM SECTOR ADDRESS (31. 
37 035206 005201 15¢: INC R1 ; INCREMENT WORD COUNT 
38 035210 001443 BEO 50$ :EXIT IF DONE 
40 035212 005720 TST (RO)+ ;MOVE RO TO HEADER WORD #2 
41 035214 013720 035340 MOV 65$, (RO) + ;WRITE HEADER WORD #2 
42 035220 005201 INC R1 : INCREMENT WORD COUNT AND 
43 035222 001436 BEQ 50$ SEXIT IF DONE 
| 44 035224 012703 035340 MOV  #65$,R3 :ADVANCE SECTOR ADDRESS 
45 035230 105213 INCB (R3) 
| 46 035232 120213 CMPB ss R2, (R3) ;SECTOR OVERFLOW ?? 
! 47 035234 103013 BHIS  25$ ZNO! 
| 48 035236 105013 CLRR = (R3) :YES - CLEAR SECTOR ADDRESS 
49 035240 105263 000001 INCB—s-1(R3) :ADVANCE TRACK ADDRESS 
50 035244 123763 001335 000001 CMPB ss LSTRK+1,1(R3) TRACK OVERFLOW ?? 
51 035252 103004 BHIS  25$ NO !! 
§2 035254 105063 000001 CLRB = 1(R3) :YES - CLEAR TRACK ADDRESS 
a 
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53 035260 105237 035336 
0127 600400 


4 
55 035270 015702 001174 
26 ers te 013703 001176 


68 
69 035336 000000 
70 035340 000000 
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25$: 
30$: 


40$: 


50$: 


60$: 
65$: 


INCB 


(SP) +,R4 
(SP)+,R3 
(SP)+,Re 
(SP)+,R1 
(SP)+,R0 


PC 


> ADVANCE Te ADDRESS 
:LOAD SECTOR DATA COUNT 


‘iui? if poe COUNT AND 
: DECREMENT SECTOR COUNT 


0 
: CONTINUE DATA PATTERN 
+ POP STACK INTO R4 


:zPOP STACK INTO R1 
:;POP STACK INTO RO 


sCYLINDER ADDRESS STORAGE 
; TRACK, SECTOR ADDRESS STORAGE 


13 
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res LOL a ener 





EE NT 


' COMPARE BUFFER SUBROUTINE SEQ 01 
; -SBTTL COMPARE BUFFER SUBROUTINE 
3 7 THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BuFT 
4 > ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS uni ite 
5 + AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER 
§ ; COMPARISON ARE REPCRTED TO THE USER VIA THE USER'S ERROR CALL. 
8 sCALL: 
2 701) JSR PC, CMPBUF 
10 7(2) .WORD WRITE BUFFER ADDRESS 
17 : . WORD a BUFFER ADDRESS P 
12 :(3) BR RETURN HERE IF NO ERROR 
13 (4) RETURN HERE IF ERROR 
14 - (5) ERROR ERROR DEFINED BY SUBROUTINE 
a 7 (6) 2??? 
17 035342 CMPBUF : 
035342 010046 MOV RO,-(SP) 77PUSH RO ON STACK 
035344 010146 MOV R1,~‘%SP) 77PUSH R1 ON STACK 
635346 010246 MOV R2,~-(SP) 7zPUSH R2 ON STACK 
035350 010346 MOV = hi 77PUSH R3 ON STACK 
18 035552 005037 035702 CLR 150$ :CLEAR CORRECTION FLAG 
20 = DETERMINE IF DATA SHOULD BE aaa ig 
21 035356 033737 004000 001370 _ BIT ECI,RMOF I WAS /ECC CORRECTION ALLOWED ?? 
22 035364 001063 BNE 
23 035 032737 100000 007352 BIT ADCK,RMERT]I SUAS. THERE A DATA CHECK ?? 
24 035374 1457 | BEQ 80$ , :NO ! 
25 035376 032737 000100 001352 BIT MECH, RMER1! 71S ERROR CORRECTION HARD SET ? 
26 035404 001053 ) BNE $ yes '! 
27 035406 032737 010000 001370 BIT #FMT16,RMOF I 31S THIS 16 BIT FORMAT ?? 
$8 035414 001447 BEQ 80$ swf! 
30 7; CORRECT DATA USING ECC INFORMATION 
31 035416 013700 001416 MOV RMBAD ,RO ; RO = STARTING BUFFER ADDRESS 
32 035422 013701 001402 MOV RMEC11I,R1 R1 = ECC POSITION 
035426 052737 100000 035702 , BIS #B1T15,150$ :SET CORRECTION FLAG 
35 :MOVE RO TO WORD BOUNDARY CF ERROR BURST 
36 035434 022701 000020 10$: CMP #16. ,R1 sts BIT POSITION > 1 WORD 
37 035440 103004 BHIS $ =NO 
38 035442 162701 000020 SUB #16. .R1 SUBTRACT 1 WORDS WORTH 
39 035446 005720 TST (RO) + ;ADVANCE BUFFER ADDRESS 1 WORD 
40 035450 77 BR 10$% 
41 035452 012702 000001 20$: MOV #1,Re2 zR2 = BIT POINTER 
* 035456 010203 MOV R2,R3 ;R3 = BIT NUMBER 
44 MOVE R2 TO STARTING BIT OF sei cae 
45 035460 020301 jc R3,R1 RS SAME AS R1 ?? 
46 035462 001403 BEQ 35$ ‘YES 
47 035464 302 ASL R2 ) SHIFT ‘BIT POINTER 
48 035466 005203 INC R3 : INCREMENT BIT NUMBER 
49 035470 000773 BR 30$ 
29 035472 012703 000013 35$: MOV #11.,R3 3R3 = LENGTH OF ERROR BURST 
52 7CORRECT THE ERROR BURST 
53 035476 030237 001404 40$: BIT R2,RMEC21 71S THIS BIT SET IN ECC PATTERN ?? 


rE ES ee ee eae 


— 


SS esses nee 


Cee tei ca a i aay 


7 oy 
77 035576 
78 035600 


81 035602 
606 


9 
98 035702 


112776 


032737 


| 
| 
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“OMPARE BUFFER SUBROUTINE 


000001 


000010 
000002 
C0000 
000002 
001340 
001414 


001140 


000004 
000336 
100000 


000163 
000002 
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000010 
000010 


000010 
000010 
035702 


000010 
000010 


50$: BIS R2, (RO) 
60$: ASL R2 


MOV #1,Re 

TST (RQ) + 
70$: DEC R3 

BNE 40$ 


; COMPARE WRITE BUFFER TO READ BUFFER 
B0$: MOV 


SEQ 0160 


sNO = DO NOT CORRECT THIS BIT 
21S THE BIT PRESENTLY SET ?? 


SRESET THE BIT 


;SET THE BIT 
_gSHIFT TO NEXT BIT 


sCONTINUE WITH FIRST BIT OF NEXT wORD 
sEND OF BURST ?? 
:NO ii 


a10(SP) RO :RO = WRITE BUFFER 
ADD #2,10(SP) “MOVE SP TO READ ADDRESS 
MOV a10(SP),R1 7R1 = READ BUFFER 
ADD #2,10(SP) :MOVE SP TO RETURN ADDRESS 
MOV RMWCI RZ = NUMBER OF WORDS TRANSFER 
SUB RMWCO. 
90$: CMP (RO) +. (R1)+ : COMPARE DATA WORDS 
BNE $ “EXIT IF NOT EQUAL 
DEC “DECREMENT WORD COUNT 
BNE 90$ : CONT INUE IF NOT DONE 
BR 110$ “DONE COMPARE - NO ERROR 
:DATA COMPARE FAILED 
100$: MOV -(RO),$GDDAT §;STORE GOOD DATA FOR TYPEOUT 
MOV -(R1),$BDDAT | :STORE BAD DATA FOR TYPEOUT 
MOV RO, $GDADR :STORE ADDRESS OF GOOD DATA 
MOV R1,$BDADR :STORE ADDRESS OF BAD DATA 
MOV R2.$TMPO :STORE WORD COUNT OF ERROR 
ADD #4.10(SP) :MOVE SP TO USER'S ERROR CALL 
MOVB  #336,a10(SP) :WRITE ERROR NUMBER IN CALL 
: CHANGE ERROR NUMBER IF ECC CORRE CT ION FAILED 
| RIT #B1T15,150$ ECC CORRECTION USED ?? 
BEQ 105$ ge 
MOVB  #163.a10(SP) “ECC CORRECTION FAILED 
105$: SUB #2,10(SP) :MOVE SP TO RETURN IF ERROR 
110$: 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP) +_R2 ::POP STACK INTO R2 
MOV (SP) +_R1 =:POP STACK INTO R1 
MOV (SP) +-RO >:POP STACK INTO RO 
RTS PC =RETURN TO USER 
150$:  . WORD sECC CORRECTION FLAG 


F 13 
ZTRMNBO RMOS/%3/2 © CINL TST 2 M4ORO yO4.00 4-APR=-B1 11:43:33 PAGE 19 


' STATUS SUBROUTINE | SEQ 0161 


-SBITL GET STATUS SUBROUTINE 


~~ 


—_" 


3 :THIS SUBROUTINE SETS UP THE ‘‘'GET INDEX TABLE’’ AND THE ‘GE! 
4 “BUFFER'' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUT INE : 
3 ; AND THEN RETURNS TO THE USER. | : 
4 SCALL: JSR PC,GETSTS | 
: : ??? RETURN HERE 
0 035704 GETSTS: 
035704 010046 MOV RO,-(SP) 73PUSH RO ON STACK 
1 035706 010146 MOV R1,-(SP) 72PUSH R1 ON STACK 
2 035710 010246 MOV R2,-(SP) 7ZPUSH R2 ON STACK 
3035712 012700 001524 MOV #GETINX,RO ;RO = ADDRESS OF INDEX TABLE 
4 035716 012701 001406 MOV #RMEC21+2,R1 3R1 = ADDRESS OF GET BUFFER 
§ 035722 012702 000046 MOV ARMEC2.R2 zR2 = REGISTER INDE 
6 035726 110220 23: MOVB R2,(RO)+ sWRITE REGISTER INDEX IN TABLE 
7 035730 5041 CLR -(R1) ;CLEAR CORRESPONDING LOCATION 
& 035732 162702 000002 3$: SUB #2,R2 =DECREMENT TO NEXT INDEX 
9 635736 100405 BM! 4$ “BRANCH OUT IF DONE 
0 035740 022702 0600022 CMP #RMDB,R2 ;DONT WRITE RMDB INDEX 
1 035744 001370 BNE 2$ 
2 035746 005041 CLR -(R1) 
3.035750 000770 BR 3$ 
4 035752 112720 000200 4$: MOVB #200, (RO)+ WRITE TERMINATOR 
5 035756 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
6 035760 012601 MOV - (SP)+,R1 :z:POP STACK INTO R1 
7 035762 012600 _ MOV (SP)+,RO :zPOP STACK INTO RO 
8 035764 000240 . NOP 
9 035766 000207 RTS PC 


PUNIMINIAPIAININUAAA) @ — 2 2 es Se - s 
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GE? SUBROUTINE 


7 THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
2''GET INDEX TABLE’’ AND STORES THEIR VALUES IN THE «Sy teen 
sLOCATION IN THE “GET REGISTER BUFFER'’. FOR EXAMPLE, 

SENTRY. OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE - 

;READ ‘'RMBA’' AND STORE ITS CONTENTS AT THE LOCATION a" 

: THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER O 

;REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE. INDEX 

; TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 

; WHICH SHOULD FOLLOW THE LAST ENTRY. 


: SUBROUTINE CALL: 
"GET INDEX TABLE'’ HAS BEEN LOADED WITH REGISTER INDEX 
VALUES AND TERMINATED WITH A CONTROL BYTE 


1 
1é -(2) ““GET INPUT BUFFER’’ IS AVAILABLE FOR USE. (NOTE THAT 
17 UNUSED LOCATIONS, I.£.,ENTRIES IN BUFFER CORRESPONDING 
12 . TO REGISTERS NOT READ, ARE NOT CHANGED.) 
19 - (3) JSR PC GET 
20 : BR ??? RETURN HERE IF NO ERROR FOUND 
21 . NOP RETURN HERE IF ANY ERROR FOUND 
$§ ; ERROR SUB DEFINES ERROR NUMBER 
24 : 
25 7RO = REGISTER BASE ADDRESS 
26 zR1 = REGISTER ADDRESS 
e? :R2 = BUFFER BASE ADDRESS . 
28 :R3 = BUFFER ADDRESS 
+ 3R4 = POINTER TO REGISTER INDEX 
31 035770 000240 GET NOP 
32 035772 062716 000004 ADD #4, (SP) ;CLEAR ERROR NUMBER IN USER'S 
33 035776 105076 000000 CLRB a(SP) sERROR CALL 
34 036002 162716 O0C0004 SUB #4, (SP) 
35 036006 010046 MOV RO,-(SP) :zPUSH RO ON STACK 

036010 010146 MOV R1,-(SP) >7PUSH R1 ON STACK 

036012 010246 MOV R2,-(SP) 7zPUSH R2 GN STACK 

036014 010346 MOV R3,-(SP) 3zPUSH R3 ON STACK 

036016 010446 MOV R4,-(SP) > PUSH R4 ON STACK 

036020 013746 000004 MOV ERRVEC, - (SP) >; ;PUSH ERRVEC ON STACK 

36024 013746 000006 MOV ERRVEC+2, -(SP) 3;PUSH ERRVEC4+2 ON STACK 

36 036030 013700 001276 MOV SBASE ,RO : 
37 036034 012702 001336 MOV #GE TBUF ,R2 ‘ 
38 036040 012704 001524 MOV AGETINX,R4 
39 036044 012737 036152 000004 MOV . #5$,ERRVEC sSETUP FOR TIMEOUT 
40 036052 012737 000300 000006 MOV #PRE,ERRVEC+2 
41 036060 016037 000010 001174 1$: MOV RMCS2 (RO) , STMPO +GET 'NED'* STATUS 
42 036066 016037 000000 001176 MOV RMCS71(RO),$TMP1 :GET ‘DVA*’’ STATUS 
43 036074 032737 004000 001176 BIT #DVA,STMP1 ; DEVICE AVAILABLE ?? 
44 036102 001007 BNE 3$ YES! 
45 036104 062766 000004 000076 ADD #4,16(SP) Ati ERROR NUMBER IN USER'S 
46 036112 112776 000112 000016 MOVB #112,a16(SP) >ERROR CALL 
47 036120 000423 «BR 7$ 
48 036122 105714 3$: TSTB (RS) 7 DONE ?? 
49 036124 100433 : BM! $ svES! 3 
50 036126 111401 MOV8 (RG) RI =R1 = REGISTER ADDRES 
57 €36130 042701 177700 BIC M*CIDXMSK RR? “CLEAR ANY SIGN EXTENSION 


a iaite ieee =e 
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at Y SUBROUT I NE 
2 1 060001 ADD R0,R1 
é3 5361 36 112603 MOVB (R4)*,R3 zR35 = STORAGE ADDRESS FOR REGISTER 
54 036140 042703 177700 BIC #*CIDXMSK RZ >CLEAR ANY SIGN EXTENSION 
55 036144 960203 ADD R2,R5 
56 956146 011113 MOV (R21), (R3) READ REGISTER 
rH 036150 000764 tet z$ 
59 152 622626 CMP (SP)+,(SP)+¢ ' SRESTORE STACK 
60 Ose ree gesse 000004 000016 ADD #4,16(SP) sWRITE ERROR NUMRER IN 
61 036162 112776 000007 16 MOVB #7 216 (SP) ZUSER'S ERROR CALL F 
62 036170 1627 000002 O00016 7$ SUB #2,16(SP) 
©3 036176 105714 TSTB (RS) ;DONE CLEARING?? 
464 036200 100405 BM] S$ 2 YES! ! 
65 036202 0605003 CLR R3 ;CLEAR REMAINING STORAGE 
66 036204 112402 MOVB (R4)+,R3 s LOCATIONS 
67 036206 060203 ADD R2,R3 
68 036210 005013 CLR (R3) ; 
69 036212 000771 : aR 8$ AN 
70 036214 9$: 
636214 012637 OC0006 MOV (SP) +, ERRVEC+2 3;zPOP STACK INTO ERRVEC +2 
036220 012637 000004 MOV (SP) +, ERRVEC 3zPOP STACK INTO ERRVEC 
036224 012604 MOV (SP)+,R4 :zPOP STACK INTO RG 
036226 012603 MOY (SP)+, R35 7zPOP STACK INTO R3 
230 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
036232 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
234 012600 MOV (SP) +,RO :zPOP STACK INTO RO 
71 036236 000207 RTS PC ee :RE TURN 


a 


eee - ee eee a ee 


owe ee me. | men ee 


eee me RENN a eR em ste sages ee 
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-SBTTL PUT SUBROUTINE 


THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE 
2 PUT INDEX TABLE’* WITH THE CONTENTS OF THE CORRESPONDING 
sLOCATION IN THE “PUT REGISTER BUFFER’. THE NUMBER OF 
sREGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 

7BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
sFOLLOW THE LAST ENTRY. | 


> SUBROUTINE CALL: 


. . 
OOO NOW uw 


12 7(1) ‘PUT INDEX TABLE'’ HAS BEFN LOADED WITH INDEX VALUES 
13 : OF REGISTERS TO BE WRITTEN. 
14 (2) "PUT REGISTER BUFFER'' CONTAINS CONTENTS OF EACH 
15 : REGISTER TO BE WRITTEN. 
14 : (3) JSR PC PUT 
1? : BR 279 RETURN HERE IF NO ERROR FOUND 
18 : NOP RETURN HERE JF ANY ERROR FOUND 
19 : ERROR SUB DEFINES ERROR NUMBER 
20 ; ??? 
21’ E 
22 -RO = REGISTER BASE ADDRESS 
23 :R1 = REGISTER ADDRESS 
24 =R2 = BUFFER BASE ADDRESS 
25 *R3 = BUFFER ADDRESS 
36 :R4 = POINTER TO REGISTER INDEX 
28 036240 000240 PUT NOP 
29 036242 010046 MOV RO,-(SP) :zPUSH RO ON STACK 
036244 010146 MOV R1,-(SP) =:PUSH R1 ON STACK 
036246 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
036250 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
036252 010446 MOV R4,-(SP) -=PUSH RG ON STACK 
036254 013746 000004 MOV ERRVEC,-(SP) : PUSH ERRVEC ON STACK 
036260 013746 000006 MOV ERRVEC+2,-(SP) 7zPUSH ERRVEC+2 ON STACK 
30 036264 013700 001276 MOV SBASE ,RO 
31 036270 012702 001412 MOV #PUTBUF ,R2 
32 036274 012704 001553 MOV A#PUTINX,R4 
33 036300 012737 036410 000004 MOV #5$, ERRVEC :SETUP FOR TIMEQUT 
34 036306 012737 000300 000006 MOV #PR6, ERRVEC+2 
35 036314 016037 000010 061174 1$: MOV RMCS2(RO),$TMPO :GET 'NED'’ STATUS 
36 036322 016037 000 001176 MOV RMCS1(RO),$TMP1 :GET ‘DVA'’ STATUS 
37 036330 032737 004000 001176 BIT #DVA,$TMP1 :DEVICE AVAILABLE ?? 
38 036336 001007 BNE 3$ sYES!! 
39 036340 062766 000004 000016 ADD #4,16(SP) -WRITE ERROR NUMBER IN 
40 036346 112776 000112 000016 MOVB #112,a16(SP) :USER'S ERROR CALL 
41 036354 000424 BR 7$ 
42 036356 105714 zg: TSTB (RG) : DONE ?? 
43 036360 100425 BM] 9$ :YES!! 
44 036362 111401 MOVB (R4) RI :R1 = REGISTER ADDRESS 
45 036364 042701 177700 BIC #°CIDXMSK,R1 :CLEAR ANY SIGN EXTENSION 
46 036370 060001 ADD RO,R1 
47 036372 111403 MOVB (R4) -R3 :R3 = STORAGE ADDRESS 
48 036374 042703 177700 BIC #*°CIDXMSK,R3 :CLEAR ANY SIGN EXTENSION 
49 036400 060203 ADD R2,R3 
50 036402 011317 MOV (R3), (R1) :WRITE REGISTER 
51 036406 105724 L$: TSTB (R4)+ -ADJUST REGISTER POINTER 


‘TRMNBO RMOS/3/2 FCINL TST 2 


PLT SUBROUTINE 
52 036406 000763 
S54 936410 022626 


062766 
56 036420 112776 
? 036426 162766 


2600 
60 036456 000207 
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5$: 
000016 
000016 
000016 7$: 

9$: 


BR 


3$ 


(SP)+_(SP)+ 
#4,16(SP) 
#7,a16(SP) 
#2,16 (SP) 


(SP) +, ERRVEC+2 
(S77) +, ERRVEC 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 

(SP) +,R1 

cP) +,RO 

PC 


sADJUST STACK 
sWRITE ERROR NUMBER IN 
;USER*S ERROR CALL 


3sPOP STACK INTO ERRVEC #2 


32POP STACK 
3zPOP STACK 
:zPOP STACK 
3zPOP STACK 
3zPOP STACK 
3zPOP STACK 
sRE TURN 


INTO ERRVEC 
INTG RS 
INTO R3 
INTO R2 
INTO R1 
INTO RO 


SEQ 0165 


5 ee ee eee 


“2RMNBO RMOS/3/2 FCTNL 
SUBROU 


iZE CLOCK 


eleleolelelelalele! al ela) 
Aaa aS 
R FS 


0 
036552 
0 
0 
0 
CG 
0 
0 


36600 


TINE 


000404 
022626 
062766 
012637 


TST 2 


000004 
000006 
036526 
000300 
177546 
000100 
142774 
036560 
142742 


000002 


000006 
00C004 
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000004 
000006 
001520 
001522 


000004 
001520 
001522 


000004 


- SBITL 


SIZCLK: 


1$: 


2s: 
3$: 


SIZE CLOCK SUBROUTINE 


ERRVEC,=(SP) 
ERRVEC+2,~-(SP) 
#1$, ERRVEC 
#PR6 ERRVEC+2 


#177546, CLKADR © 


#100,CLKVCT 
@CLKADR 
3$ 


(SP)+,(SP)+ 
#2$ ,ERRVEC 
1173500. CLKADR 
#104,CLKVCT 
@CLKADR 

3$ 


(SP) +, (SP)+ 
#2,4(SP) 


(SP)+, ERRVEC+2 
eo 


3 PUSH ERRVE C ON STACK 
; PUSH ee ON STACK 
;SET uP FOR BUS TIMEOU 


;LOAD ADDRESSES FOR KW1i-=L 


7 TEST FOR KW1i=L PRESENT 
sYES = KW11=-L IS PRESENT 
sRESTORE SP 
;SET UP FOR BUS TIMEOUT 

sLOAD ADDRESSES FOR KW11=-P CLOCK 


TEST FOR KW11=P PRESENT 
YES = KW11-P IS PRESENT 


“RESTORE SP 


sMOVE RETURN TO ERROR 


sPOP STACK INTO ERRVEC+2 
5ePOP STACK INTO ERRVEC 


;RETURN TO USER 


Se 
ee 
SS SS A A EE ES 


ZRMNBO 8M0S/4/ . FC TNL 


TIMEOUT 


WO WNOUMAPWPY .4 


NO -2 er 
OWWNAOULSWN-O 


36 


SUBROUT I 


036740 
056746 


056764 


012711 
016046 


162766 


012637 
012637 


000207 


000004 


000036 
172540 


000001 
000005 


000000 
177576 
000200 


000200 


000004 
000007 
000002 


000006 
000004 
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000004 
000006 


000002 


000012 
000012 


000072 


. SBTTL 


CALL: 


TIMOUT : 


1$: 


2$: 


3$: 


4$: 


5$: 


13 


TIMEOUT SUBROUTINE 


> THIS SUBROUTINE WAITS FOR RDY 
7GREATER 1)'4N APPROX. 500 MSEC 


JSR 
he 


PC,TIMOUT 


RO,-(SP) 


ERRVEC,-(SP) 
ERRVEC+2,-(SP) 
#4$, ERRVEC 
#PR6,ERRVEC+2 
$BASE ,RO 
CLKADR ,R1 
#30.,Re 
R1,4172540 

2$ 

#1,2(R1) 


wit? BIT0, (R1) 


RMCS1 (RO) ,-(SP) 
#“C<RDY!GO>, (SP) 


ARDY, (SP) + 
5$ 
> lial 


(SP)+,(SP)+ 
44,12 (SP) 
#7 ,a12(SP) 
#2,12(SP) 


(SP) +, ERRVEC+2 
(SP)+,ERRVEC 
(SP)+,R2 
(SP)+,R1 

(SP) +,RO 

PC 


1 AND GO = 


RETURN HERE 


3:PUSH RO ON STACK 
:;PUSH R1 ON STACK 
32PUSH R2 ON STACK 
3ZPUSH ERRVEC, ON STACK 
:PUSH ERRVEC+2 ON STACK 
: SETUP FOR BUS TIMEOUT = 04 TRAP 


;RO=BASE ADDRESS 
¢RI= CLOCK ADDRESS 
;R2=NUMBER OF _—— CYCLES 


KT =P CLOCK?? 


0! 
:SET COUNTER 
:START COUNTER 


;GET STATUS 


eS! 1,G0=0?? 
: TIMER DONE ?? 


G OR FOR A TIMEOUT 
C AND THEN RETURNS. 


:DEC NUMBER OF CYCLES 
:CONTINUE IF NOT DONE 


:"'RDY'' DID NOT SET OR ‘'GO'' DID NOT RESET 
:WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 


SADJUST STACK 


sMOVE SP TO USER'S 
:WRITE ERROR NUMBER 


sPOP STACK INTO ERRVEC+#2 
;POP STACK INTO ERRVEC 
"SOP STACK INTO R2 
;;POP STACK INTO R1 
:sPOP STACK INTO RO 
sRETURN TO USER 


S CALL 


SEQ O16. 


| 


te 





CZRMNBO RMO5/3/2 FCINL TST 2 


FRROR CHECK SUBROUTINES 


CO OWNAMLD WH -OWO VAM Bw. 


PD mee ee ed ed ed ed eed om? od ed 


036766 


062716 
105076 
162716 


013737 


-000004 


000000 
000004 
001346 
001140 


000004 
000001 
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-SBTTL ERROR CHECK SUBROUTINES 


- SAAR AAEEREAARAEAEAAEERERAEAREAAARAARAREARREREEKRERREKRAE HARE ERE RE 


.SBITL PRIMARY ERROR CHECK SUBROUTINE 


; THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
:THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
:FOLLOWING CHECKS ARE MADE: 


CORRECT UNIT IS SELECTED, I.£., THE UNIT SELECT BITS OF RMCS2 
(BITS 0-2) EQUAL THE UNIT BEING TESTED: 


: ~SELECTED UNIT IS AVAILABLE, I.£., DVA (BIT 11 OF RMCS1) IS SET 
"AND NED (BIT 12 OF RMCS2) IS RESET; 


T COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS 
“READY (alt ) OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
:DRIVE a BIT (BIT 7 OF RMDS) IS SET. 
1, , Pe PARITY ERROR OCCURRED DHEN READING REMOTE REGISTERS, 


NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
:1.£., PAR = 0, OR, PAR = DPE = 1 


= THE SUBROUTINE ASSUMES THAT: 


: STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER, 
> IN: PARTICULAR, RMCS1, RMCS2 AND RMDS HAVE BEEN STORE? IN THEIR 
: CORRESPONDING LOCATIONS OF THE '‘GET’’ BUFFER. 


4 .($UNIT) CONTAINS THE DRIVE NUMBER 
>THE SUBROUTINE IS CALLED AS FOLLOWS: 
-(1) JSR PC PRIERR 
: BR 299 RETURN HERE IF NO ERROR 
NOP RETURN HERE TO REPORT AN ERROR 
: ERROR ERROR NUMBER DEFINED BY SUB 
: JSR PC, a(SP)+ GO BACK TC SUB FOR MORE ERROR CHECKS 
: 229 RETURN HERE IF NO MORE ERRORS 
PRIERR: 
:CLEAR USER'S ERROR CALL 
ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
CLRB = a(SP) =CLEAR ERROR NUMBER 


SUB #4, (SP) :MOVE (SP) TO NO ERROR RETURN 


sREPORT AN ERROR IF THE WRONG UNIT IS SELECTED 
MOV RMCS21,$BDDAT  ;CORRECT UNIT SELECTED?? 
BIC #*CUNTMSK , $BDDAT. 
a DATA FOR TYPEOUT 
A 


$GDDAT, SBDDAT qo pit ge 9 AND RECEIVED 


:DR IVE N 
BEQ 1$ YES! ! 
ADD #4, (SP) 
MOVB #7) ,a(SP) ERROR 1 


LTT: SS A A aR sn sete atm 


SEQ 0168 


CZ7RMNBO RMO5S/3/2 FCINL TST 2 
PRIMARY ERROR CHECK SUBROUTINE 


398 037054 


066 
62 937070 


N 
—_ 
© 
LAN 
N 
oud 
Nm 
© 


85 037216 


88 037216 


037304 
037306 


eLelelel eels) 


SHGRGRAVLS SS 


ele) eleleleilelelelels) 
WNW 

ee 

oO 


326 


el ee ed ae ed es ts —  -— 
Ld. NIAIANI AIAN AWWW 
Re PP PA Pe PR ie A Mp. 


auth <n <alt <u onl 
Wr © 


362 
366 


A A A A NS A EN ECT cal 


162716 
36 


000575 


pe ih 


000541 


032737 


000002 
000010 
037610 


004000 ~ 


001336 


010000 
001346 
001346 
010000 
000005 
000002 


000010 


000200 
001336 


000002 
000010 


000001 
000200 
001336 


000002 
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001336 


001140 
001140 
001142 


000000 
001346 


001140 
001142 
001140 
000000 


001336 
001140 
001140 
001140 
001142 


000000 


001336 
001350 
001140 


001140 
001142 


~ 000000 


1$=- 


;REPORT 


SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 


JSR PC ,a(SP)+ ZREPORT WRONG UNIT SELECTED 
8 #10,(SP) sRESTORE (SP) 
JMP 10$ 7SKIP OTHER CHECKS 


AN ERROR IF Pe el IS NOT AVAILABLE OR IF 


>THE DEVICE IS NONEXIST 


2$: 


5$: 
:REPORT 


‘e 


7$: 
sREPORT 


ADVA,RMCS11 
5$ 


MOV RMCS11,$GDDAT 
BIS #DVA,$GDDAT 
MOV RMCS11 ,$BDDAT 
ADD #4, (SP) 
#2,a(SP) 


vESiie AVAILABLE ?? 
sEXPECTED STATUS 
sRECEIVED STATUS 


sERROR #42 

BIT #NED. /RMCS21 :WAS | NED SET?? 

MOV RMCS21, $GDDAT sEXPECTED STATUS 
“RECEIVED STATUS 


BIC ANED , SGDDAT Sere, 

) :YES - CHANGE ERROR NUMBER ™ 
sMOVE SP TO RETURN FOR ERROR 
sREPORT DEVICE NOT AVAILABLE 
sRESTORE (SP) 


:SKIP OTHER CHECKS 


JSR —s PCa (SP) + 
SUB #10, (SP) 


BR 10$ 
AN ERROR IF MASSBUS CONTROLLER IS NOT READY 
_* -RMCS1I we READY ?? 
MOV RMCS1I,$GDDAT EXPECTED STATUS 


BIS ARDY , SGDDAT 
BIC ASC! TRE! MCPE!GO,$GDDAT 


MOV RMCS11,$BDDAT ;RECEIVED STATUS 
ADD #4,(SP) 
MOVB #4 ,a(SP) sERROR #4 


SUB #2, (SP) 
JSR PC, a(SP)+ 
SUB #10, (SP) 


:MOVE SP TO RETURN FOR ERROR 
sREPORT CONTROLLER NOT READY 
sRESTORE (SP) 


NOP 

BR 10$ ;SKIP OTHER CHECKS 
AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE 
BIT #GO0,RMCS11 :GO RESET?? 

BEQ 8$ ee Pe: 

BIT ADRY,RMDS! he 4 READY?? 

BNE 8$ 


MOV RMCS11 , $GDDAT EXPECTED STATUS 
BIC #SC! TRE 'MCPE !GO,$GDDAT 

MOV RMCS1I,$BDDAT ;RECEIVED STATUS 
ADD #4, (SP) 


MOVB #5,a(SP) sERROR #5 
SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
JOR. - “PC @(SP)+ sREPORT DRIVE NOT READY 


nr ee —— 
—- + on ee aoa ~> = - -_ we ee ee se 


en EE. 
ee ee 


LOE TS TT ee ea 


POPMSMUPRIMIAMINAY - —+ 2 
DWNAARWN “OOD@ OL 


DIFAR 


-—Oo 


PPA PIPIVIVIVIVIE BELEK ELE Pw 


Ca 2 tite ene ais we Ws WR 


AAO 


ne A ee eS etme ce 


162776 
40 
000504 


2 


gopoozascsxee 
Ssvxs 
S23 


Sas 
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001352 
001400 
001426 


ZREPORT 
ZPARITY 


9$: 
ZREPORT 


91$: 


923: 


93$: 


LL NT te 


SEQ O77 


SUB #10, (SP) [RESTORE (SP) 
NOP 

BR 108 

AN ERROR IF THE RH CONTROLLER DETECTED BAD 

ON THE MASSBUS CONTROL BUS 

BIT #MCPE .RMCS11 ;PARITY ERROR ?? 

BEQ sNO!! 

MOV RM<S11.$GDD -EXPECTED STATUS 

BIC #SC! TRE 'MCPE ' GO. $GDDAT 

MOV RMCS11,$BDDAT —-:RECEIVED STATUS 

ADD #4. (SP) :MOVE STACK TO USER'S ERROR 
MOVB #1%,a(SP) “ERROR #13 

SUB #2, (SP) =MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ -REPORT ERROR VIA USER 

SUB #10, (SP) *RESTORE STACK 

NOP 

BR 10$ 

AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR 

gi! #PAR .RMER1] :WAS THERE A PARITY ERROR?? 
BIT #DPE .RMER2Z] :WAS IT THE CONTROL BUS?? 
BNE 11$ =NOT SURE! | 

BIT #PAR,RMER10 “DID TEST SET PAR ?? 

BEQ *NO!! 3 

MOV RO,-(SP) > :PUSH RO ON STACK 

MOV #PUTINX,RO :RO POINTS TO INDEX TABLE 
CMP #RMER' , (RO) :SEARCH TABLE FOR RMER1 

MOV (SP) +, RO ::POP STACK INTO RO 

BR 1$ :PAR WAS SET BY TEST 

TSTB ~=—s-_- (RO) + -END OF TABLE?? 

BPL 91$ zNO!! 

MOV (SP)+,RO ::POP STACK INTO RO 

MOV RMER1I.$GDDAT :EXPECTED STATUS 

BIC #PAR,$GDDAT 

MOV RMERII.$BDDAT  -:RECEIVED STATUS 

ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
MOVB #50,a(SP) “WRITE THE ERROR NUMBER 

SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT THE ERROR 

SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
ADD #70, (SP) :RETURN TO ERROR 

NOP “RETURN TO NO ERROR 

R PC 


CZRMNBO RMOS/3/2 FCTINL "ST 2 
SUBROUT 


SECONDARY cRROR CHECK 


Ps LS KS en eee ee 


MORAY 3 2 2 - = 2 sr er 
WN © 0ONAMULS WN 0 O00 NO We wny - 


24 037620 


28 037620 


39 037656 
0 037660 


48 037726 


2] 037730 


57 037764 


013737 


162716 


032757 
00 


112776 


001412 
177701 


000001 
001336 
177776 
001140 
000004 


000071 





043454 
043454 


001140 


000000. 


001336 


001142 
001142 


000600 
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~SBTTL SECONDARY ERROR CHECK SUBROUTINE 


THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
>SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
;ERRORS ARE DEEMED SECONDARY IN THAT hin ARE NOT NECESSARILY 
; ASSOCIATED WITH THE OPERATION BEING PERFORMED. 

WHEN < Ra ig He IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
“NUMBER T O THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 
:TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
:MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
:OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
; RE TURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


SCALL: JSR PC,SECERR 

: BR rire RETURN HERE IF NO ERROR 

: RETURN HERE TO REPORT AN ERROR 

; ERROR ERROR NUMBER DEFINED BY SUB 
JSR PC, @(SP)+ 


; GO BACK TO SUB FOR MORE ERROR CHECKS 
: rT? RETURN HERE IF NO MORE ERRORS 


sNOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
; INPUT REGISTER BUFFER. 


SECERR: 


SERRE AEE KAA ARATE EAA EERRERREEKEKRERE KE 


STORE ae CODE AND CLEAR USER’ S ERROR NUMBER 


RMCS10,515$ STORE FUNCTION CODE 
BIC WACKFOUFIIFQIF3!F4>, 515$ 
ADD #4, (SP) ;MOVE (SP) TO ERROR CALL 
CLRB a@(SP) [CLEAR ERROR NUMBER 
SUB #4, (SP) sMOVE (SP) TO NO ERROR RETURN 
FEAR AREA EEAERAEAEAAEEAARAAERAEREAEEAEAEEEEERAREEAHEKEHKKEE RE 
® CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 
sREPORT ERROR IF DRIVE IS NOT READY, I.E.. IF DRY = 0 
BIT ADRY ,RMDS! ; DRIVE READY ?? 
BNE $ Yeo: 
MOV RMDSI,$BDDAT ‘BAD bATA FOR TYPEOUT 
BIC #°CDRY, a 
MOV #DRY,SGDDAT ;GOOD DATA FOR TYPEOUT 
ADD #4, (SP) 
MOVB #10,a(SP) ;ERROR NUMBER 
SUB #2. (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ ;REPORT NOT READY 
SUB #10, (SP) ;RESTORE (SP) TO ERROR N 
NOP 
REPORT ERROR IF GO BIT IS NOT RESET 
5$: BIT #G0,RMCS11 + G0 B1T RESET?? 
BEQ 10$ ,¥ES: 
MOV RMCS11,$BDDAT BAD BATA FOR TYPEQUT 
BIC #°(GO, $BDDAT 
CLR $GDDAT ;GOOD DATA FOR TYPEQUT 
ADD #4, (SP) 
MOVB #11,a(SP) ;ERROR NUMBER 


A 


——— 


—— «mene 
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SECONDARY ERROR CHECK SUBROUTINE 


58 037772 
59 037776 


040000 
040004 


So oe ree ee te 


162776 
736 


004 
162716 
000240 


013737 


000002 
000010 


007336 
177701 


001140 
001352 


001400 
040000 
001350 
137777 
001140 
000004 
000047 
000002 


000010 


001140 


ETE eet hy ulh-arhatencnaabintisinshrem — 
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601142 


000000 


001350 
043454 


001142 


000000 


: REPORT 


15$: 


SUB 
JSR 
SUB 
NOP 


#2, (SP) 
PC a(SP)+ 
#10, (SP) 


sMOVE SP TO RETURN FOR ERROR 
sREPORT DEVICE NOT AVAILABLE 


sRESTORE (SP) 


— IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 


RMCS11, st 


PC, -a(SP)+ 
#10, (SP) 


31S FUNCTION CODE CORRECT?? 


;EXPECTED FUNCTION CODF 
VES!! 
ZERR 


OR NUMBER 

:MOVE SP TO RETURN FOR ERROR 
sREPORT WRONG FUNCTION CODE 
sRESTORE (SP) 


sREPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
OR IF COMPOSITE ERROR IS NOT SET AND 
;QTHER ERRORS ARE SET 


zERRORS ARE SET, 


20$: 
25$: 


HERR, $GDDAT 
RMDSI , $BDDAT 
#“CERR,SBDDAT 
308 » SBDDAT 


(SP) 
we a(SP) 
#2, (SP) 
PC. a(SP)+ 
#10, (SP) 


sEXPECT “o's = 0 
; 1S RMER1 = 0?? 


1 li = 0?? 
; ERR" SOULD BE SET 


Be, ERR" OK?? 


:MOVE SP TO USER'S ERROR 
:WRITE ERROR NUMBER 
sMOVE SP TO ERROR RETURN 


;REPORT INVALID COMP ERROR 


>REPORT AN ERROR IF ‘'TRE'’ IS SET AND NONE OF THE BITS WHICH SET 
Sime IS: SET, e IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 


;SET TRE 
30$: 


35$: 
40$: 


SGDDAT 
RMCS21 ,-(SP) 
#377, (SP)+ 


5 
#ERR,RMDSI 
40$ 


#TRE , SGDDAT 

RMCS11,$BDDAT 
#“CTRE , SBDDAT 
guia satel 


#4, (SP) 
#14,a(SP) 
#2, (SP) 
PC ,a@(SP)+ 


sEXPECT ‘‘TRE'' = Q 
:WAS DLT, WCE, UPE, NED, NEM 
:PCE MXF OR MDPE SET 


:WAS. EXCEPTION RECEIVED?? 


‘MAS. ‘DATA TRANSFERRED ?? 
-NO!! 


:""TRE’' SHOULD BE SET 
“BAD DATA FOR TYPECUT 


iTS TRE™ OK?? 
: YES! 


:MOVE SP TO USER'S ERROR CALL 
:WRITE ERROR R 
:MOVE SP TO RETURN FOR ERROR 


:REPORT TRE ERROR 


LE A TT A RA nite ae 


ae 040274 
040300 
040302 


WO DONA UESWN-OVOWMNOE 


Ok a th ad ee et at et ed, - 
RR See ere mrennorny mb mB eel ed 


SSOVE 
RER 
252 

ae 

Ns 


1 360 
142 040366 
143 060374 
144 040376 
145 040402 
146 040410 
147 060414 


WAPI 


Ga Gin, ah tinea daa cdc an tak aca 
ADA AO 
NS ARAVISSSNRARYNS 


170 040524 


162776 
000240 


032737 


000240 


013737 


004 736 
162716 
0050357 


013746 


CZRMNBO RMO5/3/2 FCTINL TST 2 
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000010 


043454 
064566 


043446 
040000 


000010 
001140 
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043446 


001140 
001550 


001140 


001140 


001142 


000000 


001742 


SUB #10, (SP) 
NOP 
45%: 


RESTORE 


(SP) 


FSSA AAA AAA ARAAAERAARERETERAAEEREEEHERREREKREEKRERKREE TERR 


:USING THE FUNCTION CODE tet ti ge FOR THE FOLLOWING ERRORS: 


; -STATUS BITS NOT SET T 


;STATUS CONDITIONS, 


:WRITE LOCK IS ON AND THE COMMAND IS A WR 
:GET i THE we ty FROM THE FUNCTION CODE TABLE 


7zPUSH RO ON STACK 
;GET FUNCTION CODE 
;STORE ENTRY 

> :POP STACK INTO RO 


sREPORT AN ERROR IF AN Pe ATTENTION OCCURRED OR IF 


MOV 515$.R0 
MOV FNCDTB(RO) .500$ 
MOV (SP)+,RO 
“ATA IS NOT SET AND SHOULD BE 
MOV 500$, $GDDAT 
BIT #ERR,RMDS! 
BEO 50$ 
BIS #ATA, SGDDAT 
50$: BIC #°CATA, $GDDAT 
MOV RMDS1, $BDDAT 


BIC #“CATA, SBDDAT 
CMP — 


BEQ 

ADD #4, (SP) 
MOVB #6,a(SP) 
SUB #2, (SP) 
JSR PC,a(SP)+ 
SUB #10, (SP) 
NOP 


55$: 


sREPORT ERROR IF ILF thi  ipeceaictacata 


;WITH FUNCTION CODE T 


MOV 500$,$GDDAT 
BIC #°CILF .$GDDAT 
MOV RMER11.$BDDAT 
BIC #*CILF,$BDDAT 
CMP $GDDAT . $8DDAT 
BEQ 60$ 
ADD (SP) 
MOVB #354) a (SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 

60$: CLR SGDDAT 


:GET EXPECTED ATA STATUS 


:1S COMPOSITE ERROR SET ?? 
“NO !! 


sEXPECT AN ATTENTION 
:STRIP DONT CARES 
;GET RECEIVED ATA 
:STRIP DONT CARES 


31S ATA OK ?? 

s YES ss 

:MOVE SP TO USERS ERROR CALL 
:LOAD ERROR # IN CALL 


:MOVE SP TO ERROR RETURN 
;REPORT ERROR 
sRESTORE SP 


1.E., IF ILF DOES NOT COMPARE 
sGET EXPECTED ILF 


;CLEAR ALL OTHER BITS 
GET RECEIVED ILF 


sCLEAR ALL sy BITS 

+ ay OK ? 

:MOVE SP TO USERS ERROR CALL 
sWRITE ERROR NUMBER IN CALL 


:MOVE SP TO ERROR RETURN 
;REPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 
CLEAR EXPECTED STATUS 


sREPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET 
MOV 500$,-(SP) 


BIS #ACWCE, (SP) 
MOV RMCS21 ,$BDDAT 
BIC (SP)+,$BDDAT 


:GET WCE STATUS ENABLE 
:SET ALL OTHER BITS 


:RECEIVED STATUS 
;CLEAR WCE IF ENABLED 


E AND OTHER 
E Fas WRITE LOCK y - _* ONLY BE SET IF 


. F 14 
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ee ee ete oe — 


172 040536 001412 BEQ 90$ 7BRANCH IF WCE OK 

173 040540 2716 C€00004 ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 
174 0640544 112776 000026 000000 MOVB #26,a(SP) jWRITE ERROR NUMBER 

175 040552 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 

176 040555 004736 JSR PC ,a(SP)+ “REPORT ERROR 

177 040560 162716 000010 SUB #10, (SP) sRESTORE ERROR 

fA 040564 90$: 

180 sREPORT ERROR IF OPI STATUS IS SET AND SHOULD NOT BE SFT 

181 040564 013746 043446 MOV 500$,-(SP) :GET OPI STATUS ENABLE 

182 040576 052716 157777 BIS #*COPI, (SP) :SET ALL OTHER BITS 

183 040574 013757 001352 001142 MOV RMER1i,$BDDAT  :GET RECEIVED STATUS 

184 040602 042637 001142 BIC (SP) +, $BDDAT >CLEAR OPI IF ENABLED 

185 040606 001412 BEQ 100$ 7BRANCH IF OPI OK 

186 040610 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
187 040614 112776 000164 000000 MOVB #164,a(SP) ;WRITE ERROR NUMBER IN CALL 
188 040622 162716 0000062 SUB #2, (SP) ;MOVE SP TO ERROR RETURN 

189 040626 004736 JSR PC, a(SP)+ :REPORT ERROR 

190 040630 162716 000010 SUB #10, (SP) sRESTORE SP 

133 040634 100$: 

193 ZREPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS 
1394 7SET AND VV IS NOT RESET 

195 040634 013746 043446 MOV 500$,-(SP) :GET 1VC STATUS ENABLE 

196 040640 032737 000100 001350 BIT #VV,RMDSI 71S vV SET 

197 040646 001402 BEG 105$ rt 

198 040650 042716 010000 BIC #IVC, (SP) “YES - IVC SHOULD BE 0 

199 040654 052716 167777 105$: BIS #*CIVC, (SP) :SET ALL OTHER BITS 

200 040660 013737 001400 001142 MOV RMERZI1,$BDDAT  :GET RECEIVED STATUS 

01 04 042637 001142 BIC (SP) +, $BDDAT :CLEAR IVC IF ENABLED 

202 040672 001412 BEQ 110$ ;BRANCH IF IVC OK 

205 040674 062716 000004 ADD #4, (SP) :MOVE SP TC USERS ERROR CALL 
204 040700 112776 000165 000000 MOVB #165,a(SP) :WRITE ERROR NUMBER IN CALL 
205 040706 162716 000002 SUB #2. (SP) :MOVE SP TO ERROR RETURN 

206 040712 004736 JSR PC, a(SP)+ :REPORT ERROR 

207 040714 162716 000010 SUB #10, (SP) z:RESTORE SP TO NO ERROR 

soe 040720 1108: 

210 :BIT 11 (wWLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
211 ; ALL WRITE ERRORS, !.£., 

212 : RMER1 = WLE, WCF 

213 ; RMER2 ~ DPE me 
214 ; RMCS¢ ~ . 

215 sEACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
$19 ;WRITE ERROR ENABLE BIT IS RESET. 

218 ;REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENARLED, OR IF 
219 . :THE DRIVE IS NOT WRITE PROTECTED 

220 060720 012746 177777 MOV #-1,-(SP) ;ASSUME WRITE ERRORS ENABLED 
221 040724 032737 004000 043446 BIT AWLE .500$ > ARE (WRITE ERRORS ENABLED ?? 
222 040732 001404 BEQ 11 :NO 

223 0407 032737 004000 001350 BIT #WRL ,RMDS | 71S THe DRIVE WRITE PROTECTED ?? 
224 040742 001002 BNE YES 

225 040744 tae 004000 115$: BIC AWLE, (SP) “RESET “WLE ENABLE 

226 060750 013737 001352 001142 1208: MOV RMER11,$8DDAT GET RECEIVED STATUS 

22? 040756 042637 001142 BIC (SP) +, $BDDAT “CLEAR WLE IF ENABLED 

228 040762 007412 BEG 1253 >BRANCH IF WlLE OK 


— ee eee ene ee ee ee eee 
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»t CONDARY ERROR 
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CHECK SUBROUTINE 


062776 
112776 
162716 
004736 
162716 


012746 
032757 


162716 


012746 
032737 


000004 
C00023 
000002 
000010 


177777 
004000 


000040 
001352 
001142 


090004 
000025 
000002 
000010 


177777 
004000 


000010 
001400 
001142 


000004 
000040 
000002 


000010 


177777 
004000 


020000 
001346 
001142 


04 3446 
175777 
001352 
001142 


000060 


045446 


001142 


000000 


043446 


001142 


000000 


043446 


001142 


000000 


001142 


125$: 
REPORT 


130$: 


135$: 


ZREPORT 


140$: 


145$: 


REPORT 


150$: 


155$: 
SREPORT 


FRROR if WCF 
MOV 


BIT 


ERROR IF DPE IS SET AND 
MOV #-1,-(SP) 


BIT 


AN ERROR IF UPE IS SET 
MOV A=-) ,~(SP) 


BIT #wLE ,500$ 
BNE 150$ 

BIC #UPE , (SP) 

MOV RMCS21, $BDDAT 
BIC (SP)+,$BDDAT 
BEQ 155$ 

ADD #4, (SP) 

MOVB #24,a(SP) 

SUB #2, (SP) 

JSR PL ai SP)+ 

SUB #10, (SP) 

AN ERROR IF AE 

MOV 00$,-(SP) 
BIS #°CIAE, (SP) 
MOV RMER11 ,$BDDAT 
BIC (SP)+, $BDDAT 


#4. (5P) 
#23,a(SP) 
#2.(SP) 
PC (SP) 
#10, (SP) 


#1 ,-(SP 
#u_E , 500 
130$ 


#WCF , (SP) 


RMER11 ,$BDDAT 
(SP) +, $BDDAT 


135$ 

#4, (SP) 
#25 a(SP) 
#2, (SP) 
PC a(SP)+ 
#10, (SP) 


AWLE , 500% 
140$ 
ADPE , (SP) 


RMER21 , $BDDAT 
oo 


145 

#4, (SP) 
#40,a(SP) 
#2, (SP) 
PC ,a@a(SP)+ 
#10, (SP) 


IS “is AND 


sMOVE SP TO USERS ERROR (Ait 


[RESTORE SP 10 NO ERROR 


WRITE ERRORS ARE NOT ENABLED 
ZASSUME WRITE ERRORS ENABLED 
: ARE WRITE ERRORS ENABLED ?? 


;DISABLE WCF ERROR 

;GET RECEIVED STATUS 

sRESET WCF IF ENABLED 
;BRANCH IF WCF OK 

s:MOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
;REPORT ERROR 

sRESTORE SP TO NO ERROR 


WRITE ERRORS ARE NOT ENABLED 


ZASSUME WRITE ERRORS ARE ENABLED 


sARE WRITE ERRORS ENABLED ?? 
-VYES | ~ 


sRESET DPE ENABLE 

:GET RECEIVED STATUS 

sRESET DPE IF ENABLED 
;BRANCH IF DPE OK 

sMOVE SP TO USERS ERROR CALL 
sWRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
:REPORT ERROR 

:RESTORE SP TO NO ERROR 


AND WRITE ERRORS ARE NOT ENABLED 
sASSUME WRITE ERRORS ARE ENABLED 


SARE WRITE ERRORS ENABLED ?? 
‘YES |! 


;DISABLE UPE ERROR 

:GET RECEIVED STATUS 

sRESET UPE IF ENABLED 
;BRANCH IF UPE OK 

sMOVE SP TO USERS ERROR CALL 
sWRITE ERROR NUMBER IN CALL 
:MOVE SP TO ERROR RETURN 
sREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


iS SET AND IS NOT ENABLED 


sGET IAE ENABLE 

iSET ALL OTHER BITS 
:GET RECEIVED STATUS 
CLEAR [AE [F ENABLED 


*  RMINBC 


RMO5/5/2 FLINL TS? 2 

“ONDARY ERROR CHE CK SUBROUT INE 

286 041252 901472 

23? 041254 062716 C00004 

288 041260 112776 000166 

289 041266 162716 000002 

290 041272 004736 

291 061274 162716 000010 

292 041500 

293 

296 

295 

296 

297 

298 

299 

300 

301 

502 

203 

304 

505 

506 

307 

308 

309 

310 041300 012746 177777 

311 041304 032737 001000 

312 041312 001002 ~~ 

315 041314 042716 100000 

314 041320 013737 001346 

315 041326 042637 001142 

316 041332 001412 

317 041334 062716 000004 

318 041340 112776 000032 

319 041346 162716 000002 

320 041352 004736 

321 0461354 162716 000010 

322 041360 

323 

324 

325 041360 012746 177777 

326 041364 032737 001000 

327 041372 001002 

328 041374 042716 004000 

329 041400 013737 001346 

330 041406 042637 001142 

331 041412 001412 

332 041414 06271 000004 

333 041420 112776 000167 

334 041426 162716 000002 

335 041452 004736 

336 041434 162716 000010 

337 041440 

338 

339 

340 041440 012746 177777 

347 061444 0327357 001000 

342 041452 001002 


MACRO ¥04.00 


CO0000 


045446 


001142 


000000 


043446 


001142 


000000 


043446 


- 4-APHHB" 
8EC 160$ 
ADD a4, (SP) 
MOVB #166,a@(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 


160$: 


H 14 
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sBRANCH IF [AE IS OK 

sMOVE SP TO USERS ERROR CALL 
7WRITE ERROR NUMBER 

:MOVE SP TO ERROR RETURN 


;REPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


sBIT O9 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 


> ALL a igs EXRORS, 1.£., 
RMCS1 


- TRE 


: RMCS2 = DLT,NEM MxF 
; RMDS = LBI 

: RMER1 = AOE 

NOTE: 


T IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 


LB 
‘Kore REGISTER IS WRITTEN 


:REPORT 
OV 
BIT HACE, 5008 
BNE 165$ 
BIC #DLT, (SP) 
165$: MOV RMCS21,$BDDAT 
BIC (SP) +, $BDDAT 
BEQ 170$ 
ADD #4, (SP) 
MOVB #32,a(SP) 
SUB #2, (SP) 
JSR PC ,a(SP)+ 
SUB #10, (SP) 
170$: 
sREPORT ERROR IF NEM 7: Poot AND 
MOV A-1, 
BIT HACE, “5008 
BNE 175$ 
BIC #NEM, (SP) 
175$: MOV RMCS2] ,$8DDAT 
BIC (SP) +, $BDDAT 
BEQ 180$ 
ADD #4,(SP) 
MOVB #167,a(SP) 
SUB #2, (SP) 
JSR PC ,a(SP)+ 
SUB #10, (SP) 
180$: 
: REPORT 


ERROR IF MXF IS SET AND 
MOV #=1 ,~ (SP) 

B1i #AOF , 500$ 

BNE 185$ 


ee 


AOE CANNOT BE SET IF LBT IS NOT ALSO SET 
TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 


a ERROR AG a, IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 


sASSUME ERRORS ARE ENABLED 
or ee ERRORS ENABLED ?? 


;RESET DLT ENABLE 
:GET RECEIVED STATUS 


:CLEAR DLT IF ENABLED 
;BRANCH IF DLT IS OK 
sMOVE SP TO USERS ERROR CAiL 


:WRITE ERROR NUMBER IN CALL 
:MOVE SP TO ERROR RETURN 
;REPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


READ/WRITE ERRORS ARE NOT ENABLED 


sASSUME ERRORS ARE ENABLED 
; ARE ERRORS ENABLED ?? 


“YES a 

;DISABLE NEM 

:GET RECEIVED STATUS 

CLEAR NEM IF ENABLED 
s;BRANCH IF NEM IS OK 

:MOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
:REPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


READ/WRITE ERRORS ARE NOT ENABLED 


ASSUME ERRORS ARE ENABLED 
ZARE DATA ERRORS ENABLED ?? 


243 0414654 
544 041460 
345 ae sees 


ANA RS RR 
Ws ARI O O00 wo 
RERRERR 


356 
5 


162716 


012746 


162716 


032737 
001403 
042737 


012746 


004 
162716 


012746 
032737 
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001000 
C01 346 
001742 


000004 
000033 
000002 


000010 


177777 


001000 
002000 
001000 
001352 
001142 
000004 
000020 
000002 
000010 


002000 
000200 


177777 
000200 


001142 
000004 
000035 
000002 
000010 


177777 
000200 


MACRO 


001142 


OG0000 


043446 
001350 


001142 


000000 


001370 
043446 


04 3446 


001142 


000000 


043446 
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:DISABLE MXF ERROR 


:GET RECEIVED STATUS 

:CLEAR MXF IF ENABLED 
7BRANCH IF MXF IS Ok 

:MOVE SP TO USERS ERROR CALL 


;WRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
sREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


DATA ERRORS ARE NOT ENABLED 
sASSUME DATA ERRORS ARE ©NABLED 
eo DATA ERRORS EANBLED ?? 


:15 LBT ALSO SET ?? 
YES 


‘DISABLE AOE 

sGET RECEIVED STATUS 
;CLEAR AOE 
:BRANCH IF AOE IS OK 

>MOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO ERROR RETURN 


:REPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


ad THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 


RESET ‘art ENABL ING ged IF HEADER COMPARE INHIBIT IS SET 


404.00 4-APR=81 
BIC @MxF (SP) 
185%: MOV RMCS21,$BDDAT 
BIC (SP) +, $BDDAT 
BEQ 190$ 
ADD #4, (SP) 
MOVE #33. a(SP) 
SUB 42, (SP) 
ISR PC a(SP)+ 
SUB #10, (SP) 
190$: 
:REPORT ERROR IF AOE IS SFT AND 
MOV -1,-(5 
BIT MADE , 500$ 
BEQ 191$ 
BIT #LBI.RMDS! 
BNE 195$ 
191$: BIC MADE, (SP) 
195$: MOV RMER11, $BDDAT 
BIC (SP) +, $BDDAT 
BEQ 200$ 
ADD #4, (SP) 
MOVB  #20,a(SP) 
SUB #2, (SP) 
JSR PC ,@(SP)+ 
SUB #10, (SP) 
200$: 
:BIT 07 
ZHEADER ERR iG. 
: RMER1 - HCRC.HCE.FER 
‘ RMER2 - BSE 
#HCI,R 
BEQ 201$ 
BIC MHCE , 5008 
2018: 
;REPORT AN ERROR IF HERE IS SET 
MOV -1,-(SP) 
BIT #HCE, 500$ 
BNE 205$ 
BIC MHCRC, (SP) 
205$: MOV RMER1!, $BDDAT 
BIC (SP)+, $BDDAT 
BEQ 210% 
ADD #4, (SP) 
MOVB #35,a(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10,(SP) 
c10$: 
=REPORT ERROR IF HCE IS SET AND 
MOV M=-7 ,-(SP 
RIT #HCE. 5008 


its re wet 77 
NO! 


YES. - DISABLE ALL HEADER ERRORS 


AND HEADER ERRORS ARE NOT ENABLED 


> ASSUME ERRORS ENABLED 
ye HEADER ERRORS ENABLED ?? 


‘DISABLE HCRC 

:GET RECEIVED STATUS 

:RESET HCRC IF ENABLED 
:BRANCH IF HCRC IS OK 

sMOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
;MOVE SP TO ERROR RETURN 
:REPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


HEADER ERRORS ARE Pace 


;ASSUME ERRORS ENABLE 
sARE ERRORS ENABLED ?? 


te 


4 


400 041720 


418 042014 
419 042020 


451 042126 
452 042132 
453 042140 
454 0642142 
455 042146 
456 042154 


162716 


012746 


162716 


012746 
032737 


162716 


ZRMNBO RMOS/3/2 FCINL TST 2 
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CO00200 
001352 
001142 


000004 
000036 
000002 
900610 


177777 
000200 


000020 
001352 
001142 


000004 
000010 


177777 
000200 


177777 
000100 


000400 
001346 
001142 


ee ee ee - 
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001742 


000000 


043446 


001142 


000000 


043446 


001142 


000000 


043446 


001142 


- LLL OO OLE CE te et. tt tt - te oe on eee Ae ee eee 


215$: 


2208: 


;REPORT 


2253: 


230$: 


7REPORT 
BIT 


235$: 


240$: 


:BI1T 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 


ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 


sFIELD ERRORS, I.E., 
; RMCS2 = MDPE 
; RMER1 = DCK.ECH 
sNOTE: 
=DCK IS SET. 
: REPORT 
BIT #ECH,500$ 
BNE 245$ 
BIC #MDPE , (SP) 
265%: MOV RMCS21, $BDDAT 
BIC (SP) +, $BDDAT 
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215$ 
MHCE , (SP) 


RMER11, $BDDAT 
(SP) +, $BDDAT 


220% 

#4, (SP) 
#36 ,a(SP) 
#2, (SP) 
PC ,a(SP)+ 
#19, (SP) 


— IF FER Set AND 


-1,- 
#HCE, 500$ 
225$ 
MFER, (SP) 


RMER11,$BDDAT 
(SP)+,$BDDAT 
230$ 


#4, (SP) 
#37,a(SP) 
PC .a(SP)+ 
#10, (SP) 


ERROR IF ot. i we AND 
MOV 4-1 ,-(SP 


#HCE, 5008 
235 


240 

#4, (SP) 
#354, a(SP) 
He, (SP) 

PC a(SP)+ 
#10, (SP) 


Sima . SBDDAT 


s¥ES 3! 
;DISABLE HCE 
:GET RECEIVED STATUS 


>CLEAR HCE IF ENABLED 


;BRANCH IF HCE IS OK 
att SP_ TO USERS ERROR CALL 
;WRITE ER 


sMOVE SP TO NO ERROR 


HEADER ERRORS ARE NOT EN4BLED 


sASSUME FER IS ENABLED 

jon, Be HEADER ERRORS ENABLED ?? 
“DISABLE FER 

:GET RECEIVED STATUS 


;RESET FER IF ENABLED 
sBRANCH IF FER OK 

sMOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
sREPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


HEADER ERRORS ARE NOT ENABLED 


sASSUME ERRORS ENABLED 
5 THEY ENABLED ?? 


‘ DISABLE BSE 

:GET RECEIVED STATUS 

;CLEAR BSE IF ENABLED 
;BRANCH IF BSE OK 

sMOVE SP TO USERS ERROR CALL 
;WRITE ERRGR NUMBER 

:MOVE SP TO ERROR RETURN 


:REPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


ERROR IF MDPE IS SET AND IS NOT ENABLED 
MOV -(SP) 


s ASSUME ENABLED 


; ARE DATA FIELD ERRORS ENABLED ?? 


;YE 
‘ DISBALE MDPE 
:GET RECEIVED STATUS 


[CLEAR MDPE IF ENABLED 


-2RMNBO RMO5/3/2 FCTNL TST 2 


457 042160 


042546 
497 042354 
498 042360 
499 042362 
500 042366 


001472 


162716 


012746 


162716 


012746 
032737 


162716 


re 


SECONDARY ERROR CHECK SUBROUTINE 


000004 
000027 
000002 


000010 


177777 
000100 


100000 
001352 
001142 
000004 
000030 
000002 
000010 


177777 
000100 


004000 
100000 
000100 
001352 
001142 
000004 
000031 
000002 


000010 


MACRO v04.00 


000000 


043446 


001142 


000000 


043446 
001370 
001352 


001142 


000000 


2508: 
:REPORT 


255$: 


260$: 
:; REPORT 


265$: 
270$: 


2753: 
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SEQ A174 
BEQ 2508 :BRANCH IF MDPE Ok 
ADD #4, (SP) ;MOVE SP TO USERS ERROR CALL 
MOVB #27.a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ :REPORT ERROR AND RETURN 
SUB #10, (SP) :MOVE SP TO NO ERROR 
ERROR IF ck 1s SET AND DATA FIELD ERRORS ARE NOT ENABLED 
MOV #~i .-(SP) : ASSUME ENABLED 
BIT #ECH, 500$ :ARE THEY ENABLED ?? 
BNE 255$ YES 
BIC #DCK, (SP) ‘DISABLE DCK 
MOV RMER1I,$BDDAT  ;:GET RECEIVED STATUS 
BIC (SP) +, $BDDAT “CLEAR DCK IF ENABLED 
BEQ 260$ :BRANCH IF DCK IS OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVB #30,a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC, a(SP)+ -REPORT ERROR AND RETURN 
SUB #10, (SP) “MOVE SP TO NO ERROR 


ERROR IF ECH IS SET AND, 
DATA FIELD ERRORS ARE NOT ENABLED, OR 


ECI IS SET, OR 

DCK IS NOT SET 

MOV #-1,-(SP) sASSUME ENABLED 

BiT #ECH, 500$ : ARE ERRORS ENABLED ?? 

BEQ 265$ :NO ! 

BIT ME CI, RMOF | 21S EC SET ?? 

BNE 265$ YES 

BIT #DCK,RMER1] £15 Dé ALSO SET ?? 

BNE 270$ ;YES 

BIC MECH, (SP) ‘DISABLE ECH 

MOV RMER1I,$BDDAT ;GET RECEIVED STATUS 

BIC (SP) +, $BDDAT :CLEAR ECH IF ENABLED 

BEQ 275$ ;BRANCH IF ECH IS OK 

ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
MOVB #31,a(SP) «WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO ERROR RETURN 
JSR PC ,@(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) :MOVE SP TO NO ERROR 


RRREL 


2422 


& 

Nm 
WN 
FO 


0 
0 
042440 
0 
0 


26 042474 
28 042502 
29 042510 
30 042512 


32 042520 


45 042572 
47 042576 


022737 
103402 
000137 


013737 


013737 
163757 
006337 
063737 
032737 
001403 
013737 


023737 


165716 
012746 


022626 
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000030 
043420 


000002 
000010 


001340 
001414 
001140 
001416 
000010 
001416 
001140 


001342 
000004 


000016 


000002 
000010 


001340 
001414 


000400 
000002 


000002 


000004 
000002 


L 14 
MACRO VO06.00 4-APR-81 11:43:33 PAGE 26 


SERRA RARER ERE E REE REE THERE TERR RENEE RERE RHEE OCR RRA R Ree eRe REe 
»*PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


PT RSA AAA ERA EAR REEEEARTAEHEHRAREHEERHEHEHHHREREKREHERAHERee eee 


043454 CMP #SEARCH,515$ ;WAS DATA TRANSFERRED ? 
BLO 280$ im IF YES 
JMP 355$ NO = EXIT 
sREPORT ERROR IF RMWC NOT 2ERO AND TRE IS oo 
001142 280$: MOV T ZERO?? 


RMWC I, SBDDAT + WORD COUN 
285$ 


BEQ VES 
001336 BIT #TRE,RMCS11 “ TRANSFER ERROR DETECTED?? 
BNE 285$ “YES! ! 
ADD #4, (SP) 
000000 MOVB  #15.a(SP) : ERROR NUMBER 
CLR $GDDAT -GOOD DATA FOR TYPEOUT 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ :REPORT WORD COUNT NOT ZERO 
SUB #10, (SP) “RESTORE (SP) 


sREPORT ERROR IF RMBA IS NOT CORRECT 
285$: MO CI,$GDDAT 


001140 V RMwW ;GET WORD COUNT AT END OF TRANSFER AND 
001140 SUB RMWCO.SGDDAT SUBTRACT STARTING WORD COUNT. 
+0 
001140 ADD RMBAO , SGDDAT ;ADD STARTING BUS ADDRESS 
001346 BIT #BAI,RMCS2] WAS BUS ADDRESS INHIBIT (BAI) SET ?? 
BEQ 290$ sno !! 
001140 MOV RMBAO , $GDDAT sADDRESS SHOULD NOT HAVE CHANGED 
001342 290$: CMP SGDDAT , RMBAI :BUS ADDRESS OK?? 
BEQ 295$ YES! 
001142 MOV RMBAI , SBDDAT “BAD bata FOR TYPEOUT 
ADD #4, (SP) 
000000 MOVB #16,a(SP) :ERROR NUMBER 
SUB 42, (SP) sMOVE SP TO RETURN FOR ERROR 
“JSR PC ,a(SP)+ REPORT UNEXPECTED ADDRESS 
SUB #10, (SP) sRESTORE (SP) 
NOP 
; COMPUTE NUMBER OF ae TRANSFERRED FROM WORD COUNT 
295$: CLR ~(SP) NUMBER OF SECTORS TRANSFERRED 
MOV RMWCI,-(SP) ;GET WORD COUNT AT END OF TRANSFER AND 
SUB RMWCO, (SP) ;SUBTRACT STARTING WORD COUNT. 
MOV #256. ,.-(SP) ;ASSUME 256. WORDS PER SECTOR 
001412 BIT #BIT1,RMCS10 sHEADER & DATA COMMAND ? 
BEQ 300$ NO ! 
ADD #2. (SP) 1: ee TO 258. WORDS PER SECTOR 
300$: INC ~ &(SP) : INCREMENT SECTOR COUNT 
SUB (SP) ,2(SP) ; SUBTRACT ONE SECTOR'S WORTH 
BGT :CONTINUE IF NOT DONE 
CMP (SP)+,(SP)+ “RESTORE STACK 


sCOMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM 


e.g ee ene Sina SS Sena att a — —— So 
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——w ERROR CHECK SUBROUTINE 


re eee 
a tenes ee 


en 





ee ee we ee ee 


sar. sNUMBER OF SECTORS 

59 042632 013737 601446 043446 MOV RMDCO,500$ ZSTORE ORIGINAL CYLINDER 

60 042640 613737 001420 043450 MOV RMDAO, 505$ “STORE ORIGINAL TRACK 

61 042645 013737 001420 043452 MOV RMDAO ,510$ ;STORE ORIGINAL SECTOR 

62 042654 013737 001334 043456 _ MOV LSTRK.520$ :STORE LAST TRACK, 

63 042662 337 043456 S 520$ :GET TRACK ADDRESS TO LO BYTE AND 
64 042666 005237 043456 INC 520$ : INCREMENT TO GET TOTL # OF TRACKS. 
66 0642672 042737 000377 043450 BIC #*C<TADMSK>,505$ ;SAVE TRACK ADDRESS BITS AND 
67 042700 000337 043450 S 505$ :SWAP TRACK ADDRESS TO LOW BYTE. 
68 042704 042737 177400 0463452 BIC #“C<SADMSK>, 5108. ;SAVE SECTOR ADDRESS BITS 
69 042712 062637 043452 ADD (SP) +,510$ 

71 042716 023727 043452 000040 310%: CMP 510$,432. ;SECTOR OVEFLOWED?? 

72 042724 103406 BLO 315$ NO! 

73 042726 005237 043450 : INC 505$ sUNCREMENT TRACK 

74 042732 162737 600040 043452 SUB #32.,5108 “ADJUST SECTOR 

°5 042740 000766 BR 310$ =TRY AGAIN 

77 042742 023737 043450 043456 315%: CMP 505$,520$ ; TRACK OVERFLOWED?? 

78 042750 103407 BLO 320$ “NO! | 

79 042752 005237 043446 INC 500$ HTINGREMENT CYLINDER 

B80 042756 163737 043456 043450 SUB 520$,505$ “ADJUST TRACK 

81 042764 000766 BR 315$ TRY AGAIN: 

82 042766 000240 NOP 

84 ;REPORT ERROR IF ‘‘LBT’’ IS NOT CORRECT 

85 042770 3208: 

86 042770 005037 001140 CLR $GDDAT :SET GOOD DATA FOR LBT 

87 042774 023727 043446 001466 CMP 500$, 4822. :SHOULD LBT BE SET?? 

88 043002 101407 BLOS 325$ “NO! ! 

89 043004 032737 002000 001352 BIT #IAE,RMER1I :WAS IAE SET ?? 

90 043012 001003 BNE 325$ -YES = LBT SHOULD NOT BE SET 
91 043014 012737 2000 001140 MOV #LBT,$GDDAT *SET GOOD DATA FOR LBT = 

92 043022 013737 001350 001142 325%: MOV RMDSI,$BDDAT § :BAD DATA FOR TYPEOUT 

93 043030 042737 175777 001142 BIC #*CLBT, $BDDAT 

94 043036 023737 001140 001142 CMP SGDDAT,$BDDAT ;:IS LBT CORRECT?? 

95 043044 001413 BEQ 3308 -YES!! 

96 043046 062716 000004 ADD (SP) 

97 043052 112776 000017 000000 MOVB att a(SP) :ERROR NUMBER 

98 043060 162716 000002 SUB #2. (SP) :MOVE SP TO RETURN FOR ERROR 
99 043064 004736 JSR PC. a(SP)+ REPORT LBT IS WRONG 
100 043 162716 000010 SUB #10, (SP) “RESTORE (SP) 
101 043072 000240 NOP 
103 "REPORT ERROR IF ‘‘AOE*’ IS INCORRECT 
104 043074 005037 001140 330$: CLR $GDDAT -SET FOR = 0 
105 043100 032737 002000 001352 BIT #IAE ,RMERTI “WAS ‘'IAE'' DETECTED?? 
106 043106 001031 BNE -YES=""AOE'’ SHOULD BE ZERO 
107 043110 023727 043446 001466 CMP 500$,4822. ; SHOULD AOE BE SET 
108 043116 101425 BLOS  340$ *NO!! 
109 043120 005737 043450 TST 505$ RAVE 
110 043124 001012 BNE 335$ YES 
111 043126 005737 043452 TST 510$ 
112 043132 001007 BNE 35$ sYES !! 

113 043134 032737 000010 043454 BIT #F2,515$ :WAS: (THIS READ OR WRITE CHECK ?? 
114 043142 001413 BEQ $ NO 


ee 2 ee oe 


115 043144 


SERRRRERERE EE 
RES EE ER er 


WR O OONOUSWRA 0 OMONO 
© 
& 
IN 
Nm 
rs 
MN 


Bc mee ee ed wed eB ae ed ed ed od od ed od ed 
RRS eR RNVNNINNNN - = 


NWA 
©Oooano 
© 
RRRS 
Ww 
WG 
© 
Nm 


141 043316 


— ot dd od 3 3 6} 3 
AQAOMANMNWMMMAWUT UU 
=O OONAULWR-O 

i>) 

> 

Ww 

& 

—, 

i) 


167 

168 043446 
169 043450 
170 043452 
1771 043454 


EA A 


000240 
062716 


600207 
000000 
000000 
000000 
000000 
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001340 


001000 
043450 
0001 


00 

001352 
176777 
001140 
000004 
000020 
000002 
000010 


002000 
043450 


001140 
000004 
000021 
000002 


000010 


043446 


001140 
000004 


000022 . 


000002 
000010 
000004 
000000 
000004 
000004 


ee ee eee ee eee | — 
os a ——_ 
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007140 
043452 
001142 


001142 
001142 


000000 


001352 
001140 
001140 


001142 
001142 


000000 


001140 
601140 
001142 
001142 


000000 


335$: 


340$: 


:REPORT 
345$: 


“REPORT 
350$: 


355$: 


B 340$ 

MOV #AOE , SGDDAT 

C 505$ 

MOV #1,510$ | 
MOV RMER11 ,$BDDAT 


BIC #“CAOE , $BDDAT 
CMP — 


SUB #10, (SP) 


;WAS ALL DATA TRANSFERRFD ?? 
sYES |! 


7SET FOR AOE = 1 
;CLEAR EXPECTED TRACK 
sEXPECT SECTOR = 1 
:BAD DATA FOR TYPEOUT 


31S AOE CORRECTY?? 
3YES%: 


;ERROR NUMBER 

sMOVE SP TO RETURN FOR ERROR 
sREPORT AOE IS WRONG 
sRESTORE (SP) 


ERROR IF RMDA IS NOT CORRECT 


AIAE,RMER1I 
355$ 
MOV 951% pall 


GDDA 
MOVB 510$,$GDDAT 
MOV RMDAI , SBDDAT 
CMP $GDDAT , SBDDAT 
350$ 


ADD #4, (SP) 
MOVB #21,0(SP) 
SUB #2, (SP) 
JSR PC, a(SP)+ 
SUB #10, (SP) 


ERROR IF RMDC IS INCORRECT 
MOV 500$ WF rinse 


MOV RMDCI ,$BDDAT 
CMP SGDDAT , $BDDAT 
355$ 

ADD #4, (SP) 
MOVB #22,a(SP) 
SUB #2, (SP) 
JSR PC, a(SP)+ 
SUB. #10, (SP) 


ADD #4,(SP) 
TSTB. = @ SP) 


sWAS THERE AN IAE ERROR ?? 
;YES = DONT CHECK RMDA,RMDC 
: SETUP EXPECTED DISK ADDRESS 


sSETUP RECEIVED DISK ADDRESS 
s COMPARE EXPECTED & RECEIVED 
sBRANCH IF EQUAL 


;ERROR NUMBER 

sMOVE SP TO RETURN FOR ERROR 
sREPORT BAD DISK ADDRESS 
sRESTORE (SP) 


sSETUP EXPECTED CYLINDER 


>SETUP RECEIVED CYLINDER 
; COMPARE CYLINDERS 
sBRANCH IF EQUAL 


:ERROR NUMBER 

sMOVE SP TO RETURN FOR ERROR 
sREPORT BAD CYLINDER 
sRESTORE (SP) 


:MOVE (SP) TO ERROR CALL 

“WAS ERROR FOUND?? 

;MOVE (SP) TO ERROR RETURN’ 
:MOVE (SP) TO NO ERROR RETURN 
: CYLINDER 

: TRACK 


“SECTOR 
“FUNCTION CODE 


— A te A hte sent ae 


SEQ 0182 


a 


SE 
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"72 063656 900000 $208: .WORD 0 sTOTAL @ OF 


"RACKS = LAST TRACK o? 


Cc 15 
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-OMPOSITE ERROR CHECK SUBROUTINE 


neo — Se = ee ee 


] _SBITL COMPOSITE ERROR CHECK SUBROUTINE 
3 :THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER? AND 
, 4 :RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
c >MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 
6 *THE MASKS ARE APPLIED. 
a > CALL: 
9 7(1) ss JSR PC. CMPERRSTS 
10 : “WORD MASK FOR ERROR REGISTER 1 
11 : WORD MASK FOR ERROR REGISTER 2 
12 : BR 22? RETURN HERE IF NO ERROR 
13- : RETURN HERE TO REPORT AN ERROR 
14 : ERROR ERROR NUMBER DEFINED BY SUB 
15 : JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
16 : 2? RETURN HERE IF NO MORE ERRORS 
18 :NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
6 :BE ZERO : 
eh 043460 CMPERRSTS: 
23 :MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 
24 043460 013737 001352 001176 MOV RMER11,$1TMP1 : STORE RMER1 AT TEMP STORAGE 
25 043466 047637 000000 001176 BIC a(SP) ,$TMP1 “MASK RMERI 
26 043474 062716 000002 ADD #2, (SP) =MOVE SP TO NEXT MA 
27 043500 013737 001400 001200 MOV RMER21,$TMP2 §:STORE RMER2 AT TEMP STORAGE 
28 043506 047637 000000 001200 BIC: a(SP) ,$TMP2 “MASK RMER2 
30 
3] :CLEAR USER'S ERROR CALL 
32 043514 062716 000006 ADD #6, (SP) :MOVE SP TO USER'S ERROR CALL 
33 043520 105076 000000 CLRB a SP) >CLEAR ERROR NUMBER 
34 043524 162716 000004 SUB #4, (SP) “LEAVE SP AT NO ERROR RETURN 
36 :SEE IF THERE WERE ANY ERRORS IN RMERT . I.E... STMP1 
37 043530 005737 001176 TST $TMP1 Y ERRORS TO REPORT?? 
38 043534 001420 BEQ 
39 043536 013737 001176 001142 MOV STMP1, SBDDAT RECEIVED STATUS FOR TYPEOUT 
40 043544 005037 001140 CLR SGDDAT -EXPECTED STATUS FOR TYPEOUT 
41 043550 062716 000004 ADD #4, (SP) =MOVE SP TO USER'S ERROR CALL 
42 043554 112776 000066 000000 MOVB  #66,a(SP) -CORRECTABLE DATA CHECK ERROR # 
43 043562 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
44 043566 736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
45 043570 162716 000010 SUB #10, (SP) “MOVE SP BACK TO BRANCH 
46 043574 000240 NOP 
4 043576 5$: 
49 :SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 (S$TMP2) 
50 045576 005737 001200 TST $TMP2 :ANY ERRORS IN RMER2? 
31 043602 001420 BEQ 10$ *NO! ! 
53 043604 013737 001200 001142 MOV STMPO - SBDDAT -RECEIVED STATUS FOR TYPEOUT 
54 043612 005037 001140 CLR $GD “EXPECTED STATUS FOR TYPEOQUT 
55 043616 062716 000004 ADD x (SP) :MOVE SP TO USER'S ERROR CALL 
56 043622 112776 000067 000000 MOVB  #67,a(SP) “WRITE ERROR NUMBER IN USER'S CALL 
$7 043630 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 


— 


rE —o 


LLL LAL LD LOL TO I NE ee 


ne ee ee ee 
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58 043634 004736 JSR PC. a(SP)+ :REPORT ERROR VIA USER 

59 043636 162716 600010 SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 

60 943642 000240 NOP 

e 3644 10$: 

63 SAUGMENT | THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

64 043644 062716 000004 ADD #4, (SP :MOVE SP TO USER'S ERROR CALL 

65 043650 105776 000000 TSTB. Ss a@ (SP) :WAS THERE AN ERROR CALLED?? 

66 043654 001403 BEQ 20$ *NO! ! 

67 043656 062716 000004 ADD #4, (SP) :YES = MOVE SP TO ERROR RETURN 
043662 600402 BR 30$ 

69 043664 162716 000004 208: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 

70 043670 000207 30$: RTS PC “RETURN TO USER 


es SR ie nent enone 


sie LE AS REE ENE Siemens 
theese 
ee EEN — 


CZRMNBO RMOS/3/2 FCTINL TST 2 


DEY 


OOD NOME WR =O OWONA UH wr.» 


043672 


043672 


043742 


043746 
043752 
043760 


044012 
044014 


04 
044070 
044072 


ES 6 ee 


ICE SELECT SUBROUTINE 


062716 
105076 
162716 


013746 


013701 


111160 
016037 
016037 


032737 


000004 
000000 
000004 


0C0004 
000006 


044042 
000300 
001276 
001466 
000010 
000000 
000010 
010000 
000004 
000111 
004000 


000004 
000112 


090002 


000006 
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000004 
000006 


001176 
0061174 


001174 
000010 
000010 
001176 


000010 
000010 


000010 
000010 
000010 


CLEAR a> i ERROR CALL 


-SBITi DEVICE SELECT SUBROUTINE 

; THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM Tif 
: TEST QUEUE. 

s CALL: 

(7) JSR PC DEVSEL 

:(2) BR ?? RETURN IF NO ERROR 

(3) NOP RETURN IF ERROR 

3(4) ERROR ERROR DEFINED BY SUBROUI INE 

DEVSEL: 


#4,(SP) sMOVE SP TO USER'S ERROR 
CLRB a(SP) sCLEAR LOW ORDER BYTE OF CALL 
SUB #4, (SP) sMOVE SP BACK 


3 SAVE = INFORMATION AND SETUP REGISTERS 


sSELECT 


10$: 


7 HANDLE 
20$: 


30$: 


ERRVEC,~(SP) 
MOV ERRVEC+2,=(SP) 
MOV RO,~(SP) 
MOV R1,—(SP) 


:sPUSH ERRVEC ON STACK 
; PUSH ERRVEC+2 ON STACK 
;sPUSH RO ON STACK 


33PUSH R1 ON STACK 
MOV #20$,ERRVEC sSETUP FOR BUS TIMEOUT 
MOV #PR6 ,ERRVEC+2 


MOV SBASE ,RO ;RO = UNIBUS ADDRESS. 
MOV TSTQUE ,R1 :R1 POINTS TO DEVICE NUMBER 


DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 
MOVB (R1),RMCS2(RO) ;WRITE UNIT SELECT BITS 
MOV RMCS1(RO),$TMP1 ;GET ‘DVA'' STATUS 
MOV RMCS2(RO),STMPO ;GET ‘NED’ STATUS 


BIT ANED . STMPO Ae DEVICE NONEXISTENT ? 
10$ :NO! 


ADD #4,10(SP) ‘MOVE SP TO USERS ERROR CALL 
MOVB #111,a10(SP) :WRITE ERRGR NUMBER 

BR 30% 

BIT ADVA,STMP1 iI DEVICE AVAILABLE ? 

BNE 35$ SYES: 

ADD #4,10(SP) ;MOVE SP TO USERS ERROR CALL 
MOVB #112,a10(SP) ;WRITE ERROR NUMBER 

BR 30% 

BUS TIMEOUT 

CMP (SP) +, (SP) + sADJUST SP 

ADD #4 ,10(SP) sMOVE SP TO USERS ERROR CALL 
MOVB #1135,010(SP) :WRITE BUS TIMEOUT ERROR NUMBER 


sADJUST RETURN TO ‘NOPS PRECEDING 
;THE ERROR CALL 


SUB #2,10(SP) 


ia USERS DATA AND RETURN TO ADDRESS ON STACK 


MOV (SP)+,R1 ;zPOP STACK INTO R1 
MOV (SP)+,RO :;POP STACK INTO RO 
MOV (SP)+, ERRVEC +2 ;;POP STACK INTO ERRVEC +2 


NN st tas ss sss ep set t-test neneeneensinesenshheenseeeteeas 
- 
- LL LOE ELL | ee i Nk 


SEQ 0186 


tee eh 


enalilieetiieenditiee: cide 
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064076 012637 000004 
$2 044102 000207 
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MOV (SP), ERRVEC 33POP STACK INTO ERRVE( 
RTS PC sEXIT 


CE A CCC At i te a stat i ttt ie na tt, ei EE Ne et eee —- — 


SEQ O7R/ 


a 


c= 


° 
Lary, 


044104 


(44104 
24 044112 
26 044122 


WO OO NO WULWY ~Oww NAws 


NORA) -2 2 22 3 ws we = ss 


50 044126 


37 944152 


42 044200 
°7 044204 


45 


46 
47 044206 
48 044214 


52 
53 044240 
ee 044246 


56 044250 
57 044256 


005037 


032737 


001020 


005037 
013737 


000437 


012737 


000004 
000000 
000004 
045342 


000019 
000010 


001140 


000002 
000010 


002000 
040000 
001446 
040000 


001421 


001420 
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001352 
001400 


001142 
000090 


G01466 
045342 
001335 


000035 


- SBTTL 


SEEK STATUS CHECK SUBROUTINE 


THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 


> STORED 


IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 


* THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
ZAFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE “ERROR'' TRAP 


; OF THE 


CALL: 
;(1) 


SEKSTS: 
;CLEAR USERS" ERROR CALL 
NOP 


CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOILOWS: 


JSR PC,SEKSTS 


BR BP? RETURN HERE IF NO ERROR 

NOP RETURN HERE TO REPORT AN ERROR 

ERROR ERROR NUMBER DEFINED BY SUB 

JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
Be : RETURN HERE IF NO MORE ERRORS 


ADD #4, (SP) sMOVE (SP) TO ERROR CALL 


CLRB a (SP) :CLEAR ERROR NUMBER 
SUB #4, (SP) sMOVE (SP) TO NO ERROR RETURN 
CLR 300$ :CLEAR ERROR FLAGS 


» TEST FOR MASSBUS peg PARITY a <<. 


LOCAL ys dee 


;REPORT 


= 1 AND 
APAR,RMER1TI WAS , PARITY ERROR DETECTED?? 
BEQ $ ;NO!! 


; 
BJT ADPE ,RMER21 WAS Ny DUE TO CONTROL BUS?? 
BNE 1$ :NOT SURE! 


oi leat rn ly ERRGR VIA USER'S ERROR CALL 
CLR $GDDAT sEXPECTED STATUS 
MOV ae 


Pe 


:RECEIVED STATUS 


ADD #4, :MOVE STACK TO USER'S ERROR 
MOVB #50,a(SP) sERROR #50 

SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ 

SUB #10, (SP) sRESTORE STACK 

BR 3$ ;IAE SHOULD BE ZERO 


sDETERMINE THE VALUE OF ‘"TAE’" STATUS BASED ON TRACK, SECTOR AND CYLINDER 


sALSO, SET ‘’SKI'’ IF oe ADDRESS IS TOO LARGE. 
1$: MOV 


;SETUP FOR IAE = 1 

BIS ASKI, 500% sSETUP FOR SKI = 1 

CMP RMDCO, #822. >GREATER THAN LAST CYLINDER ? 
BH] 3$ 7YES - CYLINDER IS INVALID 
BIC ASKI,500$ sCLEAR SKI ERROR FLAG 


#IAE ,SGDDAT 


CMPB RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ? 
BHI 3$ ;YES - TRACK IS INVALID 
CMPB RMDAO , #29. sSECTOR > 29. ? 

BLOS 2$ :BR IF NO 


SEQ 0185 


58 044260 


67 044312 


58 044360 
79 044364 
80 0443566 


85 044566 
B86 044374 
87 044376 
88 044402 
89 044410 


91 044422 


45 


—_— — = 
= i ASOD NAME WU HOOD RAR AD 
La 7 
, 
, 
& 
“J 
oO 


i 


032737 
001406 
123727 
101002 
005037 


013737 


000240 
013737 


001417 


032737 
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010000 
001420 


001140 


001352 
175777 
001140 


040000 


000004 


010000 
001140 


000100 


000061 
000002 


000010 


001400 


137777 


040000 
000004 
000267 
000002 


000010 


MACRO VO4. 


007444 
000037 


001142 


045342 


000000 


001400 


001142 
000000 


001350 


000000 


001142 


000000 


2s: 


35$: 
sREPORT 


5$: 
:REPORT 


© 
e 


571$: 


52$: 


>REPORT 


53$: 
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BIT as 
CMPB RMDAO #31. 
3$ 


CLR $GDDAT 


$SBDDAT 
BIC #“< IAE , SBDDAT 
CMP $GDDAT , SBDDAT 


35$ 
BIC #SKI, 500% 
5$ 


318 BIT FORMAT ? 
:YES - SECTOR 1S INVALID FOR 18 BIT MODE 
:SECTOR > 31. 


;¥e3 = SECTOR is INVALID 


;‘"IAE"’ SHOULD = 0 


“COMPARE EXPECTED AND RECIEVED “‘IAE’' STATUS 
3$: MOV RMER11, 


:IS IAE OK?? 
:SAVE IAE BIT FOR COMPARE 


:CORRECT ‘‘IAE'' STATUS ? 


iF NO 


7BR 
sCLEAR SKI FLAG 
3;GO CHECK NEXT ERROR 


ae —e VIA USER'S ERROR CALL 


BR 

AG 
MOVB #51 ,a(SP) 
SUB #2, (SP) 
JSR PC, a(SP)+ 
SUB #10, (SP) 
NOP 


ANY IVC ERROR AS 


sERROR 51 


7MOVE SP TO RETURN FOR ERROR 
sREPORT INCORRECT IAE 


sRESTORE (SP) 


IVC ERROR WITH VOLUME VALID ZERO 
ERRONEOUS IVC ERROR, VOLUME VALID IS SET 


BIT #1VC,RMER2I 
52$ 


CLR $SGDDAT 
MOV RMERZI = 
ADD a4, (SP 


MOVB #60, 5 (SP) 
BIT #VV.RMDSI 


MOVB #61 ,a(SP) 
SUB #2, (SP) 


JSR PC ,a(SP)+ 
SUB #10, (SP) 
NOP 


MOV RMER2I , $BDDAT 
BIC A*CSKI,$BDDAT 
MOV — 300$,$GDDAT 

BIC <n 


ve IF SKI IS NOT SET 
he , SBDDAT 


ADD AG, (SP) 
MOVB #267 ,a(SP) 
SUB #2, (SP) 


JSR PC ,a@(SP)+ 
SUB #10, (SP) 
BR 6$ 


:IVC ERROR?? 
sNO!! 
sEXPECTED STATUS 


sRECEIVED STATUS 
sMOVE SP TO USER'S ERROR 
;ERROR 60 IF VV = 0 


sERROR 61 IF VV = 1 

sMOVE SP TG RETURN FOR ERROR 
sREPORT ERROR VIA USER 
sRESTORE SP 


sRECEIVED STATUS 

:CLEAR DONT CARES 

;GET EXPECTED SKI STATUS 
>CLEAR DONT CARES 
;BRANCH IF QO EXPECTED 


(IAE WAS NOT DETECTED) 


ree SKI DETECTED ?? 
E ép TO USERS ERROR CALL 
NUMBER 


“MOV 
“WRITE ERROR 


:MOVE SP TO ERROR RETURN 


:REPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 
:GO TO NEXT ERROR CHECK 


. 
a ee - —— 
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SEEM 


115 
116 
117, 044544 


a —.—@ a 


oo 
R 
a 
oO 
— 
Oo 


LNA AA AP nro 


044644 
044650 


kk 8 ad td 3 ne ot = 0 
Spat 
WMEWN OW” 
© 
& 
e 
N 


AN 


044652 


AXA NQVMNIMAYANYIAUIUIUILS SBHAEHAE HHL LE 
WENO ODONO US W-OOOn? MAWA—-OUOn 
oO oO 
& 
xs 
™S 
W 
oO 


oo 
© 
* 
* 
™~ 
~~ 
Nm 


88 


Wh 


SSR 


ZSSRLEAF 
RRRRRRK 


032737 


000240 


032737 


000240 


013746 


000137 


032737 


000200 
001140 


000002 
000010 


020000 
001140 
000052 
010000 


000053 
000002 


000010 


001350 
047677 
110100 


045312 


010000 
020000 
001350 


G01142 


900000 


001400 


001142 
000000 


001352 


001142 


900000 
001350 


000000 


001350 
001352 
001140 
001140 
001142 


000000 


7$: 


sere if 
8$: 


:REPORT 
9$: 


REPORT - 
oo. =| 


54$ 


sREPORT ERROR IF 
BIT 
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SKI IS SET 
#Sk 1, $BDDAT 313 SK] SET ?? 
54$ sNO = SKI IS OK 
#4 ,(SP) sMOVE (SP) TO ERROR 
#54 ,a<SP) ;LOAD ERROR NUMBER 
#2, (SP) ~;MOVE SP TO RETURN FOR ERROR 
PC ,a@(SP)+ sREPORT SEEK ERROR 
#10, (SP) sRESTORE (SP) 


ANY DEVICE CHECK 


BIT 


—o DVC DURING SEEK?? 


“EXPECTED STATUS 
“RECEIVED STATUS 


ADVC,RMERZI 
6$ 


$GDDAT 
RMER21, $BDDAT 
#4, (SP) 


#55 .,a(SP) sERROR #55 

#2, (SP) sMOVE SP TO RETURN FOR ERROR 
PC,a(SP)+ sREPORT ERROR VIA USER 

#10, (SP) sRESTORE SP 


sREPORT ANY ‘OPI’* ERROR AS OPI WITH MOL = 0, OR OPI 
rare CYLI 


NDER LATCH DIDN'T RESET 


FOP] ,RMER1] 3’ OPI'’ ERROR?? 

8$ : sNO!! 

$GDDAT sEXPECTED STATUS 
RMER11,$BDDAT sRECEIVED STATUS 

#4,(SP) s;MOVE (SP) TO ERROR 

#52,a (SP) ;LOAD ERROR NUMBER 

cat =P Nlagitesoal ON LINE?? 
#53,a(SP) :YES - CHANGE ERROR NUMBER 
#2, (SP) 7MOVE SP TO RETURN FOR ERROR 
PC ,a@(SP)+ ;REPORT ‘‘OPi'' ERROR 

#10, (SP) SRESTORE (SP) 


0, AND ‘“TA", *“MOL'' AND oe a = 1 
RMDSI,-(SP) 
#“C<ATA!PIP!MOL ! VV>, (SP) 
HATA!MOL ! VV, (SP) + 

9$ ;ERROR IN RMDS 
14$ :RMDS IS OK 


ERROR IF MOL = O AND OPI = 0 
BIT S 


ci5 MOL -RESET?? ® 
;NO - MOL IS SET 


AMOL ,RMDSI 


#OPI ,RMER1I :WAS OPI SET 

10$ :YES - DONT REPORT ERROR 
RMDSI,$GDDAT sEXPECTED STATUS 

#MOL ,. $GDDAT 

RMDSI,$BDDAT sRECEIVED STATUS 

#4, (SP) 

#62 ,a(SP) 

#2, (SP) :MOVE SP TO RETURN FOR ERROR 


SEQ 0190 


Se este ee oes 
ee 


172 045042 
173 045044 


-+ 
: 
Oo 
2 
st 
Nae 


RRRERRR 
MMA AAA) 
SEVNASERSN 


tt 8 td od td 0) ow) nd ot ot + ew 
RRERRRR KRR 


© 
* 


MoPoMoMongforunyg 
ee me ad ed ed od ed od 3 
 -) 

=> 
MAMWMAWMWMWAUWIUI VU 
PONMINS 

Ww s&s 

Oor 


RNRNNLN 
RERRR KRERKRLLL 


MINIM 
MN 
MAMA 


Nw 
Lae 
Sak ein 


© 
* 


004736 
162716 
000240 


032737 


000240 


032737 


004736 


162716 
000240 


032737 
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600010 


000010 


100000 
001350 


000002 


000010 


000100 
010000 
001350 
000100 
001350 
000004 
000064 
000002 
000010 


000004 
000000 
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001350 
001400 
001140 
001142 
001142 


000000 


001350 
001140 
001140 
001142 


000000 


001350 
001400 
001140 
001140 
001142 


900000 


K 
10$: 


EPORT 


;REPORT 


118: 


sREPORT 
13$: 


14$: 


SMCDIFY 
NOP 


JSR PC ,a@(SP)+ 
SUB #10, (SP) 
NOP 


zREPORT ERROR VIA USER 


“t ERROR IF *PIP*’ IS eds AND SKI NOT SET 


1! aP IP, .RMDS1 ‘PIP’ STILL SET?? 
BIT #SKI,RMER2] | me “SkI''SET?2 
BNE 11$ :YES=DONT REPORT PIP 


MOV RMOSI , $GDDAT SEXPECTED STATUS 

BIC #PIP,$BDDAT 

MOV RMDSI , $BDDAT sRECEIVED STATUS 

ADD #4, (SP) :MOVE (SP) TO ERROR 

MOVB #56,a(SP) ;LOAD ERROR NUMBER 

SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
JSR PC ,a(SP)+ sREPORT *PIP'’ SET AFTER SEEK 
SUB #10, (SP) sRESTORE (SP) 


NOP ‘ 
AN ERROR IF ‘‘ATA’' IS NOT SET 

BIT #ATA,RMDSI :WAS "'ATA'' SET 2? 
BNE $ “YES! ! 


MOV RMDSI , SGDDAT sEXPECTED STATUS 

BIS #ATA!MOL !DPR!DRY,$GDDAT 

MOV RMDSI , $BDDAT ae tee STATUS 

ADD #4, (SP) MOVE (SP) TO ERROR 

MOVB #57,a(SP) :LOAD ERROR NUMBER 

SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 


JSR PC. a(SP)+ ;REPORT ATTENTION NCT SET DURING 
“SEEK TEST 

SUB #10. (SP) :RESTORE <SP) 

NOP 

ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 

BIT #VV .RMDSI :IS VW = 0 ?? 

BNE 14$ :NO!! 

BIT #IVC,RMER2! [IS IVC ALSO 0 ?? 

BNE 14$ :NO - IVC IS SET 


sEXPECTED STATUS 
sRECEIVED STATUS 


sERROR #64 
sMOVE SP TO RETURN FOR ERROR 


MOV RMDSI ,$GDDAT 


JSR PC ,a(SP)+ 


sMOVE (SP) TO ERROR CALL 


TST a (SP) :WAS ERROR CALLED?? 
BEQ 15$ sNO!: 

ADD 44, (SP) SMOVE TO ERROR RETURN 
BR 16$ 


5§Q O197 


— << lee a 


2 ee ee <e eeeee 
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229 065334 162716 000004 
Sey 045349 000207 
3 


K 
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153: SUB #4,(SP) 
16$: RTS PC 


3008: -WORD 0 





15 
29-4 


sMOVE (SP) TO NO ERROR RETURN 
;RE TURN 


sERROR FLAGS 


A ETS Pl kt tt ae —.- A Oe eee =~ me ne ee ee 


SEO 019, 


.- aac ene A A A A A a 
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CCNTROLLER CLEAR SUBROUTINE SEQ 019% 


i ett - 


; -SBITTL CONTROLLER CLEAR SUBROUTINE 
3 > THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSRUS ADAPTERS, 
: ; AND DRIVES, THEN SELECTS THE DRIVE. 
6 sCALL: JSR PC,CNTCLR ¢ 
? : BR 295 -RETURM@ HERE IF NO ERROR FOUND 
a } NOP RETURN HERE IF 4iNY ERROR FOUND 
“ 2 ERROR SUB DEFINES ERROR NUMBFR 
10 ; ??? 
11 ; 
i2 045344 CNTCLR a 
045344 10046 MOV RO,-(SP) : ¢PUSH RO ON STACK 
045346 010146 MOV R1,-(SP) PUSH R1 ON STACK 
045350 013746 004 MOV ERRVEC,-(SP) * =PUSH ERRVEC ON STACK 
045354 013746 006 MOV ERRVEC+2,=-(SP) ; PUSH ERRVEC #2 ON STACK 
13 045360 012737 045420 000004 MOV #10$,ERRVE »SETUP FOR BUS TIMEOUT 
14 045366 012737 000300 000006 MOV #PR6E,ERRVEC+2 
15 045374 013700 001276 MOV $BASE .R RO ;RO = UNIBUS ADDRESS 
16 045400 012760 000040 000010 MOV #CLR,RMCS2(RO) ; CLEAR MASSBUS 
17 045406 013701 001466 MOV TSTQUE ,R1 ;GET DEVICE UNDER TEST 
18 045412 111160 000010 MOVB (R1),RMCS2 (RO) SELECT DEVICE 
bi 045416 000412 BR 20$ 
21 045420 022626 10$: CMP (SP)+, (SP)+ :ADJUST STACK 
22 045422 062766 000004 000010 ADD #4,10(SP) s;MOVE SP TO USER’S ERROR CALL 
23 045430 112776 0060007 000010 MOVB #7,010(SP) WRITE THE ERROR ‘NUMBER 
$e eeere 162766 000002 000010 ane SUB #2,10(SP) ;ADJUST SP TO RETURN TO ERROR 
045444 012637 000006 MOV (SP) +, ERRVEC+2 :POP STACK INTO ERRVEC+2 
045450 012637 000004 MOV (SP) +, ERRVEC : POP STACK INTO ERRVEC 
045454 012601 MOV (SP)+,R17 7;z;POP STACK INTO R1 
045456 012600 MOV (SP)+,RO ::;POP STACK INTO RO 
26 045460 000207 RTS PC 


ee te ae ee ee 
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7. 


1 .SBITL STATUS CHECK SUBROUTINES 
2 ° J SARA EAA AAA REEAARETERREREHHEERHE ERR ERE HERE RE ee 
; “SBITL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 
5 ;THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
é :STATUS STORED IN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
? [USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.£.. WRITING A 1 IN BIT 
: :5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION 
| 10 :STATUS PERTINENT 70 THE DEVICE IS NOT CHECKED. IN PARTICULAR. THE 
| " :FOLLOWING STATUS BITS ARE NOT CHECKED: 
| 13 ATA,ERR,PIP,MOL ,WRLLBT,PGM,VV,OM,UNS, SKI ,DVC 
i e 
| 15 
16 > CALL: 
17 *(1) JSR PC,CLRSTS 
18 : BR 229 RETURN HERE IF NO ERROR 
19 : NOP RETURN HERE TO REPORT AN ERROR 
20 : ERROR ERROR NUMBER DEFINED BY SUB 
21 : JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
20 ; 27? RETURN HERE IF NO MORE ERRORS 
2 045462 CLRSTS: 
% :CLEAR USER'S ERROR CALL 
27 045462 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR 
28 045466 105076 000000 CLRB = a SP) “CLEAR ERROR NUMBER 
29 045472 162716 000004 SUB #4, (SP) “MOVE SP BACK TO NO ERROR 
30 :REPORT ERROR IF RMCS1 NOT INITIALIZED 
31 045476 013737 001336 001142 4s: MOV RMCS11,$BDDAT  :VERIFY RMCS1 
32 045504 042737 100000 001142 BIC #SC,$BDDAT : IGNORE SPECIAL pGONDITION 
33 045512 012737 004200 001140 MOV #DVA'RDY,$GDDAT “EXPECT DVA & R 
34 045520 023737 001140 001142 CMP $GDDAT,$BDDAT : COMPARE EXPECTED. RECEIVED 
35 045526 001413 BEQ 3$ *BRANCH IF EQUAL 
36 045530 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 
37 045534 112776 000126 000000 MOVE +136. a(SP) :WITE ERROR NUMBER IN CALL 
38 045542 162716 000002 SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
39 045546 004736 JSR PC. a(SP)+ :REPORT ERROR VIA USER 
40 045550 162716 000010 SUB #10, (SP) -MOVE SP BACK TO NO ERROR 
41 045554 000240 | NOP 
42 :REPORT ERROR IF RMBA NOT RESET 
43 045556 005037 001140 S$: CLR SGDDAT : VERIFY RMBA IS ZERO 
44 045562 013737 001342 001142 MOV RMBAI, SBDDAT 
45 045570 001413 BEQ 7$ :BRANCH IF ZERO 
46 045572 062716 000004 ADD #4, (SP) -MOVE SP TO USER'S ERROR CALL 
47 045576 112776 000127 000000 MOVB #127.a(SP) -WITE ERROR NUMBER IN CALL 
48 045604 162716 900002 SUB #2, (SP) =-MOVE SP TO RETURN FOR ERROR 
49 045610 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
50 045612 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
51 045616 000246 NOP 
52 -REPORT ERROR IF RMCS2 NOT INITIALIZED 
53 045620 013737 001346 001142 7%: MOV RMCS21,$BDDAT VERIFY RMCS2 
54 045626 010146 MOV R1,-(SP) PUSH R1 ON STACK 
55 045630 00504é CLR -(§P) “EXPECT IR & UNIT NUMBER 
56 045632 013701 001466 MOV TSTQUE,R1 -R1 = ADDRESS OF TEST QUE 
57 045636 111116 MOVB (R1), (SP) 
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58 045640 052716 000100 BIS #IR, (SP) 

59 045644 012637 601140 MOV (SP) +, $GDDAT 

60 045650 012601 MOV (SP)+-R1 ::PGP STACK INTO R1 

61 045652 023737 001140 001142 CMP S$GDDAT,$BDDAT :COMPARE EXPECTED & RECEIVED 
62 045 001413 BEQ 98 :BRANCH IF EQUAL 

63 045662 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 

045 112776 000130 000000 MOVB ni80, a(SP) :WITE ERROR NUMBER IN CALL 

65 045674 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
66 045700 004736 JSR PC. a(SP)+ :REPORT ERROR VIA USER 

67 045702 162716 000010 SUB #19, (SP) :MOVE SP BACK TO NO ERROR 

045706 000240 NOP 

69 = REPORT ERROR IF RMER1 NOT RESET~1 GNORE UNS 

70 045710 005037 001140 9$: CLR SGDDAT VERIFY RMER1 

71 045714 013737 001352 001142 MOV RMERI I. $BDDAT 

72 045722 042737 040000 001142 BIC #UNS , $8DDAT : IGNORE UNSAFE 

73 045730 001413 BEQ 13$ “BRANCH IF ZERO 

74 045732 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
75 045736 112776 000131 000000 MOVB  #131,a(SP) ;WITE ERROR NUMBER IN CALL 

76 045744 162716 000002 UB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
77 045750 004736 JSR PC. a(SP)+ “REPORT ERROR VIA USER 

78 045752 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 

79 045756 000240 NOP 

80 :REPORT ERROR IF RMMR1 NOT INITIAL IZED" I GNORE WC,LS.LST 

81 045760 013737 001362 001142 138: MOV RMMR11,$BDDAT  ;:VERIFY RMMR 

B2 045766 042737 000046 001142: BIC #wC'LS'LST, $BDDAT : IGNORE WORD CLOCK, SCT. TRK 
83 045774 012737 000010 001140 MOV AMWD , SGDDAT :EXPECT WRITE DATA BIT 

84 046002 023737 001140 001142 CMP $GDDAT, $BDDAT : COMPARE EXPECTED AND RECEIVED 
85 046010 001413 BEQ 17$ “BRANCH IF 0 

6 046012 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
87 046016 112776 000133 000000 MOVB  #133,a(SP) :WITE ERROR NUMBER IN CALL 

88 046024 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
89 046030 004736 JSR PC a(SP)+ :REPORT ERROR VIA USER 

90 046032 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 

91 046036 000240 NOP 

92 | ; :REPORT AN ERROR IF RMEC2 IS NOT RESET 

93 046040 005037 001140 17$: CLR $GDDAT :EXPECT ZEROS 

94 046044 013737 001404 001142 MOV RMEC21,$BDDAT  :VERIFY RMEC2=0 

95 046052 001413 . BEQ 19$ 

96 046054 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
97 046060 112776 000135 000000 MOVB  #135,a(SP) :WITE ERROR NUMBER IN CALL 

98 046066 162716 000002 SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
99 046072 004736 JSR PC a(SP)+ =REPORT ERROR VIA USER 
100 046074 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
101 046100 000240 ~ NOP 
102 :REPORT ERROR IF RMMR2 NOT INITIAL1ZED~ IGNORE RQA,ROB 
103 046102 013737 001376 001142 19S: MOV RMMR21,$BDDAT  :VERIFY RMMR2 
104 046110 042737 140000 001142 BIC #ROA! ROB. $BDDAT 3 
105 046116 012737 011777 001140 MOV #TST!1777,$GDDAT :EXPECT TEST BIT ON 
106 046124 023737 001140 001142 CMP $GDDAT, $BDDAT 
107 046132 001413 BEQ i$ 
108 046134 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 
109 046140 112776 000136 000000 MOVB rise, a(SP) “WITE ERROR NUMBER IN CALL 
110 046146 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
111 046152 73 JSR PC. a(SP)+ -REPORT ERROR VIA USER 
112 046154 162716 000010 SUB #10. (SP) “MOVE SP BACK TO NO ERROR 
113 046160 000240 NOP 
114 :REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI.DVC 
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“ONTROLLER CLEAR STATUS CHECK SUBROUTINE SEO 
115 066162 005037 001140 21$: CLR SGDDAT sEXPECT ALL ZEROS 
116 0646166 013737 601400 001142 MOV RMER21.$BDDAT VERIFY RMER¢ 
117 046174 062737 040200 001742 Bic #SKI'DVC,$BDDAT = IGNORE DEVICE ERRORS 
118 046202 001413 BEQ 215$ :BRANCH IF OTHER BITS 0 
119 046204 062716 000004 ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 
120 046210 112776 000174 000000 MOVB #174,a(SP) :WITE ERROR NUMBER IN CALL 
121 046216 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
122 046222 004736 JSR PC a(SP)+ ZREPORT ERROR VIA USER 
125 046224 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
1264 046230 0002460 NOP 
125 :REPORT ERROR IF RMDS NOT INITIALIZED 
126 046232 013737 001350 001142 2158: RMDSI.$BDDAT TEST DRIVE STATUS REGISTER 
127 0462640 0462737 177177 (001142 BIC #*C<DRY 'DPR>, SBDDAT 
128 046266 012737 900600 001140 MOV #DPR'DRY,.$GDDAT :EXPECTED DRIVE STATUS 
129 046254 023737 001140 001142 CMP $GDDAT,SBDDAT :=COMPARE EXPECTED & RECEIVED 
130 62 001413 BEQ 228 “BRANCH IF EQUAL 
131 046264 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 
132 046270 112776 000134 000000 MOVB re a(SP) “WRITE ERROR 
133 046276 162716 000002 SUB #2, (SP) =MOVE SP TO RETURN FOR ERROR 
134 046302 006736 JSR PC a(SP)+ “REPORT ERROR TO USER 
135 046306 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
136 046310 000240 NOP 
137 046312 062716 000004 228: ADD #4, (SP) :MOVE SP TO ERROR CALL 
138 046316 105776 000000 TSTB =. (SP) :WAS AN ERROE DETECTED?? 
139 046322 001403 BEQ 23$ :NO!! 
140 046324 062716 000004 ADD #4, (SP) :YES - MOVE TO ERROR RETURN 
141 046330 000402 BR 24$ ) 
142 066332 162716 000004 238: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 
1463 046336 000240 248: NOP 
144 046340 000207 RTS PC 
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-SBTTL PACK ACKNOWLEDGE STATUS CHECK 


3 : THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
4 = COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
; -REPORTED TO THE USER VIA THE USER'S ERROR CALL. 
7? ; CALL: 
of 7(1) JSR PC,ACKSTS 
4 . BR 7??? RETURN HERE IF NO ERROR 
10 ; NOP RETURN HERE TO REPORT AN ERROR 
17 2 ERROR ERROR NUMBER DEFINED BY SUB 
12 : JSR PC, ,a(SP)+ GO BACK TO SUB FOR MGRE ERROR CHECKS 
13 ‘ ??? RETURN HERE IF NO MORE ERRORS 
iF 046342 | ACKSTS: 
17 ; CLEAR USER'S ERROR CALL 
18 046342 062716 000004 ADD #4, (SP) sMOVE SP TO ERROR CALL 
19 046346 105076 000000 CLRB a(SP) ;CLEAR LOW ORDER BYTE 
so 046352 162716 000004 SUB #4, (SP) sMOVE SP BACK 
22 zREPORT AN ERROR IF ‘vv’ IS 0 
23 046356 032737 000100 001350 BIT #AVV .RMDSI 71S VOLUME VALID SET?? 
24 046364 001024 BNE 1$ YES! 
25 046366 013737 001350 001140 MOV RMDSI,$GDDAT ‘ ENPECTED STATUS 
26 046374 052737 000100 001140 BIS #VV .SGDDAT 
c? 046402 013737 001350 0601142 MOV ae sRECEIVED STATUS 
28 046410 062716 000004 ADD #4, (SP) sMOVE SP TO ERROR CALL 
29 046414 112776 000155 0600000 MOVB #155, a (SP) WRITE NUMBER IN ERROR CALL 
30 046422 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
31 046426 004736 JSR PC.a(SP)+ :REPORT THE ERROR 
32 046430 162716 000010 SUB #10, (SP) sMOVE SP BACK TO BRANCH 
33 046434 000240 NOP 
bn 0464 36 1$: 
36 zREPORT AN ERROR IF ‘MOL’ IS 0 
37 046436 032737 010000 001350 BIT #MOL . eS]. 71S MOL SET?? 
38 046444 001024 BNE 2$ sYES!! 
39 046446 013737 001350 001140 MOV RMDSI,$GDDAT sEXPECTED STATUS 
40 046454 052737 010000 001140 BIS #MOL . SGDDAT 
41 046462 013737 001350 001142 MOV RMDSI, $BDDAT sRECEIVED STATUS 
42 046470 062716 000004 ADD #4, (SP) >MOVE SP TO ERROR CALL 
43 046474 112776 000041 000000 MOVB #41,a(SP) zWRITE NUMBER OF ERROR IN CALL 
44 046502 162716 000002 SUB » #2, (SP) sMOVE SP TO RETURN FOR ERROR 
45 046506 004736 JSR PC,a(SP)+ =REPORT TH ERROR 
46 046510 162716 000010 SUB #10, (SP) z:MOVE SP TO BRANCH 
47 046514 000240 NOP 
ry 046516 2$: 
50 sSEE IF °‘UNS’’," OPI’’,"'RMR’’,""ILR’’, OR ““ILF’’ IS SET 
51 046516 032737 060007 001352 BIT #UNS : OPI!RMR'ILR'ILF, RMER1 I 
26 046524 001570 BEG 7$ 
SREPORT AN ERROR IF ‘UNS’ IS SET 
55 046526 032737 040000 001352 BIT #UNS ,RMERT I ;WAS UNS SET?? 
56 046534 001424 . BEQ 3$ zNO!! 
57 046536 013777 001352 007142 MOV RMER11,$BDDAT :RECEIVED STATUS 
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PACK ACKNOWLEDGE STATUS CHECK SEQ 0198 

58 046544 013737 001352 001140 MOV RMER1I1.$GDDAT = :EXPECTED STATUS 

59 046552 042737 (40000 001140 Bic #UNS , $GDDAT 

60 046560 062716 000004 ADD #4,(5P) :MOVE SP TO ERROR CALL 

61 046564 112776 000042 000000 MOVB 4#42,a(SP) ;WRITE NUMBER OF ERROR IN CALL 
62 046572 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
63 046576 004736 JSR PC a(SP)+ “REPORT THE ERROR VIA USER 
64 046600 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 
65 046604 000240 NOP 

66 046606 3$: 

68 :REPORT ANY OPI ERROR 

69 046606 032737 020000 001352 BIT #OPI,RMER1] :WAS OPI SET ?? 

70 046614 001424 BEQ 4$ “NO! ! 

71 046616 013737 001352 001142 MOV RMER11,$BDDAT = =RECEIVED STATUS 

72 046624 013737 001352 001140 MOV RMER1I1.$GDDAT =EXPECTED STATUS 

73 046632 042737 020000 001140 BIC #OPI1,$GDDAT 

74 046640 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

75 046644 112776 000043 000000 MOVB #43,a(SP) “WRITE NUMBER OF ERROR IN CALL 
76 046652 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
77 046656 004736 JSR PC. a(SP)+ “REPORT THE ERROR VIA USER 
78 046660 162716 000010 SUB #10, (SP) =MOVE SP TO NO ERROR RETURN 
79 046664 000240 NOP 

ey 046666 4$: 

82 : :REPORT ANY RMR ERROR 

83 046666 032737 000004 001352 : BIT ARMR,RMERT1 :WAS RMR SET?? 

84 046674 001424 BEQ 5$ “NO! ! 

85 046676 013737 001352 001142 MOV RMER1I1,$BDDAT :RECEIVED STATUS 

86 046704 013737 001352 001140 MOV RMER1I,$GDDAT :EXPECTED STATUS 

87 046712 042737 000004 001140 ~ BIC #RMR , SGDDAT 

88 046720 062716 000004 ADD #6, (SP) :MOVE SP TO. ERROR CALL 

89 046724 112776 000044 000000 MOVB #44,a(SP) “WRITE NUMBER OF ERROR IN CALL 
90 046732 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
91 046736 004736 JSR PC a(SP)+ =REPORT THE ERROR VIA USER 
92 046740 162716 000010 SUB #10, (SP) =MOVE SP TO NO ERROR RETURN 
93 046744 000240 NOP 

4 046746 S$: 

96 :REPORT ANY ILR ERROR 

97 046746 032737 000002 001352 BIT #ILR,RMERTI :WAS ILR SET?? 

98 046754 001424 BEQ 6$ —ENO!! 

99 046756 013737 001352 001142 MOV RMER11,$BDDAT  :RECEIVED STATUS 
100 046764 013737 001352 001140 MOV RMER11,$GDDAT :EXPECTED STATUS 
101 046772 042737 000002 001140 BIC #ILR,$SGDDAT 
102 047000 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 
103 047004 112776 000045 000000 _MOVB  #45,a(SP) “WRITE NUMBER OF ERROR IN CALL 
104 047012 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
105 047016 004736 JSR PC_a(SP)+ “REPORT THE ERROR VIA USER 
106 047020 162716 000010 SUB #10, (SP) “MOVE SP. TO NO ERROR RETURN 
107 047024 000240 NOP 
108 047026 6$: 
110 :REPORT ANY ILF ERROR 

111 047026 032737 000001 001352 BIT #ILF .RMER1] :WAS ILF SET?? 

112 0470384 001424 BEQ 7$ =NO!! 

113 047036 0137387 001352 001142 MOV RMER1I1,$BDDAT  :RECEIVED STATUS 

114 047044 013737 001352 001140 MOV RMER1I1,$GDDAT :EXPECTED STATUS 
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PACK ACKNOWLEDGE STATUS CHE SEQ 01 


115 047052 042737 000001 001140 BIC MILF ,SGDDAT 

116 062716 (000004 ADD #4, (SP) sMOVE SP TO ERROR CALL 

117 047064 112776 000046 000000 MOVB #46 ,a(SP) 7WRITE NUMBER OF ERROR IN CALL 
118 047072 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
119 047076 004736 JSR PC ,@(SP)+ ;REPORT THE ERROR VIA USER 
120 047106 162716 000010 SUB #10, (SP) sMOVE SP TO NO ERROR RETURN 
121 947104 000240 NOP gt. 

1$¢ 047106 7$: 

124 : AUGMENT RETURN Pgs 5 IF ERROR WAS F OUND 

125 047106 062716 000004 ADD #4, (SP) MOVE SP TO ERROR CALL 

126 047112 105776 000000 TSTB @ (SP) WAS ERROR FOUND?? 

127 047116 001403 BEQ 8$ =NO!! 

128 047120 062716 000004 ADD #4, (SP) 7YES - MOVE TO ERROR RETURN 
129 047124 000402 BR 9$ 

130 047126 162716 000004 8$: SUB #4, (SP) ;MOVE SP TO NO ERROR RETURN 
131 067132 * C00240 9$: NOP 

132 047134 000207 RTS PC 
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24 047152 
25 047160 


30 047170 


42 047252 


45 047252 


56 047882 


062716 
105076 
162716 


032737 
001553 
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000004 
000000 
0C0004 


022011 


000010 
000010 
001352 


000002 
000010 


000001 
001352 


000002 
000010 
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001352 


001352 
001400 
001140 
001140 
001142 


000000 


001352 
007140 
001140 
001142 


000000 
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~SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 


> THIS SUBROUTINE CHECKS THE RESULTS OF A ee OPERATION 
[USING THE STATUS STORED IN THE GET BUFFER 


: CALL: 
>(1) 


RCLSTS: 


PC,RCLSTS 
ane 


PC ,a(SP)+ 


; CLEAR eo’ S ERROR NUMBER 
#4, (SP) 


a (SP) 
#4, (SP) 


= SEE IF “'PAR'' OR es g?* OR ‘OPI'’ 
BIT ee RMER1 I 


BEQ 
Z;REPORT ANY MASSBUS CONTROL BUS 
7’ PAR’' = 1 AND ‘DPE’' = 0 
BIT #PAR,RMER1] 
BEQ 1$ 
BIT ADPE ,RMERZ! 
BNE 1$ 
MOV RMER1I,$GDDAT 
BIC #PAR,$GDDAT 
MOV RMER11,$BDDAT 
ADD #4, (SP) 
MOVB #50,a(SP) 
SUB #2, (SP) 
JSR PC ,a(SP)+ 
SUB #10, (SP) 
NOP 
1$: 
;REPORT ANY “‘ILF'' ERROR 
BIT AILF ,.RMER1]! 
BEQ 2$ 
MOV RMER11,$GDDAT 
BIC AILF ,SGDDAT 
MOV RMER1!,$BDDAT 
ADD #4,(SP) 
MOVB #71,a(SP) 
. SUB #2, (SP) 
JSR PC ,a(SP)+ 
SUB #10, (SP) 
NOP 
2%: 


ee en ee eee eee 


CALL SUBROUTINE 


RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


;CLEAR USER*S ERROR CALL 
sMOVE SP BACK TO BRANCH 


OR "'IAE’* 1S SET 
=NONE ARE SET - GO TO NEXT CHECK 
PARITY ERROR, I.E... 
;WAS "'PAR'* SET?? 
“NO! 
SUAS. ‘DPE’ SET?? 
“YES - NOT A REGISTER ERROR 
“EXPECTED STATUS 


sRECEIVED STATUS 


sMOVE SP TO USER'S ERROR CALL 


:WRITE ERROR NUMBER IN CALL 
sMOVE SP TO RETURN FOR ERROR 
:GO REPORT ERROR 

sMOVE SP BACK TO BRANCH 


sWAS “‘ILF’* SET?? 
SND! 
sEXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
sMOVE SP TG RETURN FOR ERROR 
;RePORT ERROR VIA USER 

sMOVE SP BACK TO BRANCH 


TT tS inet Sac a eee st ema ae 


SEQ 0200 
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032737 


000240 


032737 


000240 


032757 
001517 


032737 


162716 
000240 


000 
000072 
010000 


000073 
000002 


000010 


002000 
001352 


000002 
000010 


050200 


010000 
001400 


000100 


000075 
000002 


000010 
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000000 


001400 
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sREPORT ANY *‘OPI"" ERROR AS 
OPI DUE TO ° 


3$: 


31$: 
;REPORT 


4$: 


_aaen. iF 


sREPORT 


53; 


6$: 


~¢ ERROR IF :? LS Sef 


. = 0 
as9 OPI BECAUSE ON CYLINDER LATCH Dr ates T RESET 
! 


+ oRMER11 : WAS OPI 
RMER1I,$GDDAT EXPECTED STATUS 


#OP1 , $GDDAT 
RMER1I, — sRECEIVED STATUS 


#4, (SP sMOVE SP TO USER'S ERROR CALL 


#72, 3(SP) sWRITE ERROR NUMBER IN USER'S CALL 
amo RMDSI ; joy F asl = 0?? 

a 
#73,a(SP) ;NO - CHANGE ERROR NUMBER 
#2,(SP) sMOVE SP TO RETURN FOR ERROR 
PC,a(SP)+ ;REPORT ERROR VIA USER 
#10, (SP) sMOVE SP BACK TO BRANCH 


#IAE ,RMER1I z1$ “IAE"' SET?? 
4$ ; 


RMERII,$GDDAT EXPECTED STATUS 

#IAE , $GDDAT 

RMER1I,$BDDAT  ;RECEIVED STATUS 

#4, (SP) :MOVE SP TO ERROR CALL 

#70,a(SP) ;WRITE ERROR NUMBER IN USER'S CALL 


2, (SP) sMOVE SP TO RETURN FOR ERROR 
PC,a(SP)+ sREPORT ERROR 
#10, (SP) sMOVE SP BACK TO NO ERROR RETURN 


SKI’ OR ‘IVC’ OR “DVC'’ IS SET 


BIT 
BEQ 


ASKI!IVC!DVC,RMER2I 
8$ sNONE OF THE BITS ARE SET 


ANY “‘IVC’" ERROR AS 
-IVC WITH VV = 0 


;ERRONEOUS | IVC ERROR 


2 alae -RMER21 
RMER21 , $GDDAT 
#IVC,$GDDAT 
RMER21 , $BDDAT 
#4, (SP) 

#74 ,a(SP) 


WAS, IVC SET?? 
“EXPECTED STATUS 
:RECEIVED STATUS 


sMOVE SP TO USER‘S ERROR CALL 
are wea of NUMBER IN CALL 


AVV,RMDS1 é VV = 

5$ s¥ER¢% 

#75,a(SP) :NO - CHANGE ERROR NUMBER 
#2,(SP) sMOVE SP TO RETURN FOR ERROR 
PC,a(SP)+ ;REPORT ERROR VIA USER 

#10, (SP) :MOVE SP BACK TO BRANCH 


SEQ 0201 
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040000 
001400 
040000 


060002 
000010 


000200 
001400 


000002 
000010 


001350 
047676 
110100 


050410 


010000 
020000 
001350 


000100 
000002 


000010 


000100 
070000 


H 16 
MACRO VO046.00 4-APR-81 11:45:33 PAGE 33-2 


001400 
001140 
001140 
001142 


000000 


001400 
001140 
001140 
001142 


000000 


001350 
001352 
001140 
001140 
001142 


000000 


0013550 
001400 





SEQ 0202 
sREPORT ANY ‘’SKI** ERROR 
BIT #SKI,RMER2I WAS SKI SET?? 
BEQ 7$ sNO!! 
MOV RMER21,$GDDAT sEXPECTED STATUS 
BIC ASKI ,SGDDAT 
MOV RMER2 1, $BDDAT sRECEIVED STATUS 
ADD #4, (SP) i;MOVE SP TO USER'S ERROR CALL 
MOVB #76,a(SP) ;WRITE ERROR NUMBER 
SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
JSR PC ,@(SP)+ ZREPORT ERROR VIA USER 
SUB #10, (SP) sMOVE SP TO BRANCH 
NOP 
7$: 
sREPORT ANY ‘‘DVC’* ERROR 
BIT ADVC,RMER2Z] sWAS ‘DVC'' SET?? 
BEQ 8$ 3NO!! 
MOV RMER21,$GDDAT sEXPECTED STATUS 
BIC #DVC, $GDDAT 
MOV RMER21,$BNDAT sRECEIVED STATUS 
ADD , (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB #77 ,a(SP) ;WRITE ERROR NUMBER 
SUB #2,(SP) ;MOVE SP TO RETURN FOR ERROR 
JSR PC,a@(SP)+ ZREPORT ERROR VIA USER 
SUB #10, (SP) sMOVE SP TO USER'S BRANCH 
NOP 
8$: _ 
:SEE IF 'PIP’’ AND ‘‘OM'' ARE 0, AND ‘'ATA‘',"MOL*’ AND ‘'Vv'' ARE 1 
MOV RMDSI,-(SP) s;PUT RMDS ON STACK 
BIC #*C<PIP!MOL!VV!OM!ATA>, (SP) ra 
CMP #ATA!MOL ! VV, (SP) + as 
BNE 85$ , 
JMP 13$ 
85$: : 
;REPORT AN ERROR IF MOL = O AND OPI = 0, I.E., MEDIUM WENT OFF 
;LINE AFTER RECALIBRATE WAS INITIATED 
BIT #MOL ,.RMDSI ;DID MOL DROP?? 
BNE oF sNO!! 
BIT #OPI,RMERTI ;WAS OPI ERROR REPORTED?? 
iE 9$ :YES - DON'T REPORT MOL=0 
MOV RMDS1,$GDDAT sEXPECTED STATUS 
BIS #MOL , SGDDAT 
MOV RMDS1,$BDDAT sRECEIVED STATUS 
ADD #4,(SP) ;MOVE SP TO USER'S ERROR CALL 
MOVB #100,a(SP) WRITE ERROR NUMBER 
SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
JSR PC ,@(SP)+ ;REPORT ERROR VIA USER 
a #10, (SP) sMOVE SP BACK TO USER'S BRANCH 
N 
of: 
SREPORT AN ERROR IF ‘‘vv'' = 0 AND ‘'IVC’’ = 0 
BIT AVV,RMDS] :DID ‘‘VV'* DROP?? 
BNE 10$ zNO!! 
BIT #IVC,RMERZ! sWAS THERE A IVC ERROR?? 
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194 050232 
195 050236 


196 
197 050240 
198 
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200 
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228 


001024 
0 


000240 


032737 


000240 


032737 


€01350 
001350 


7100000 
001350 
100000 
001350 
000004 
060102 
000002 


000010 


000001 
001350 


000002 
000010 


020000 
040000 
001350 


000002 
000010 
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001140 
001142 
001140 


000000 


001350 
001140 
001140 
001142 


000000 


001550 
001140 
001140 
001142 


000000 


C91350 
001400 
001140 
001140 
001142 


000000 


6 
3 


=3 


BNE 10$ YES - DONT REPORT vv=0 
MOV RMDS] ,S$GDDAT s EXPECTED STATUS 
MOV RMDS!,$BDDAT SRECEIVED STATUS 
BIS AVV,SGDDAT 
ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB #101, a (SP) 7WRITE ERROR NUMBER IN CALL 
SUB #2, (SP ) sMOVE SP TO RETURN FOR ERROR 
JSR PC ,a@(SP)+ 
‘3 #10, (SP) MOVE SP BACK TC USER'S BRANCH 
10$: 
sREPORT AN ERROR IF ATA IS NOT SET 
BIT #ATA,RMDS] ; WAS ATA SET DURING RECALIBRATE ?? 
BNE 11$ s YES! 
MOV RMDSI,$GDDAT EXPECTED STATUS 
BIS HATA, $GDDAT 
MOV RMDSI,$BDDAT sRECEIVED STATUS 
ADD #4,(5S p ;MOVE SP TO USER'S ERROR CALL 
"VB #102, a (SP) ;WRITE ERROR NUMBER IN. CALL 
SUB #2, (SP ) 
JSR P€,a(SP)+ 
SUB #10, (SP) s;MOVE SP TO USER'S BRANCH 
NOP 
11$: 
:REPORT AN ERROR IF ‘‘OM’’ IS NOT ZERO BECAUSE RECALIBRATE SHOULD 
Z;ALWAYS CLEAR OFFSET MODE 
BIT #0M,RMDSi sWAS ‘‘OM'’ RESET?? 
BEQ 12$ Lee Oe: 
MOV RMDSI,$GDDAT sEXPECTED STATUS 
BIC #OM, S$GDDAT 
MOV RMDS I SBDDAT RECEIVED STATUS 
ADD #4, (SP) sMOVE SP TC USER'S ERROR CALL 
MOVB #103, a(SP) ;WRITE ERROR NUMBER 
SUB #2, ( (SP ) -MOVE SP TO RETURN FOR ERROR 
JSR PC ,a(SP)+ >REPORT ERROR VIA USER 
SUB #10, (SP) s;MOVE SP TO USER'S BRANCH 
NOP 
12$: 
7REPORT AN ERROR IF ‘PIP’ IS STIL ON, I.E... DRIVE NOT ON 
> CYLINDER 
BIT #PIP,RMDS] oo DRIVE OFF CYLINDER?? 
BEQ 13$ 
BIT #SKI,RMERZI os "SKI"" DETECTED?? 
BNE 13$ ;YES-DONT REPORT ‘PIP*' 
MOV RMDSI ,$GDDAT “EXPECTED STATUS 
BIC #PIP,$GDDAT 
MOV RMDSI,$8DDAT sRECEIVED STATUS 
ADD #4,(SP) ;MOVE SP TO USER'S ERROR CALL 
MOCVB #104,a(SP) ;WRITE ERROR NUMBER 
SLB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ 
ye #10, (SP) sMOVE SP BACK TO USER'S BRANCH 
N 


SEQ 020% 
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tt tit 


RECALIBRATE STATUS CHECK SUBROUTINE SEQ 0204 

56 050410 13$: 

231 :SEE IF “*ILR’’ OR ‘'RMR'’ OR “UNS IS SET 

232 050410 032737 0460006 601352 BiT #MILR'RMR' UNS RMERI] 

th 950416 001514 BEQ 16$ 

235 :REPORT AN ERROR IF rs IS SET. 

236 050420 032737 000002 001352 BIT #ILR,RMER1] zWAS ILR SET DURING RECALIBRATE ?? 

237 050426 001424 BEQ 14$ NO!! 

238 050430 013737 001352 001140 MOV RMERII,$GDDAT ;EXPECTED STATUS 

239 050436 042737 0002 001140 BIC #ILR,$GDDAT 

240 050444 013737 001352 001142 MOY RMER1I,$BDDAT  :RECEIVED STATUS 

241 050452 062716 000004 ADD #4,(SP) :MOVE SP’ TO USER'S ERROR CALL 

242 050456 112776 000105 000000 MOVB #105,a(SP) ;WRITE ERROR NUMBER IN CALL 
050464 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 

244 050470 004736 JSR PC, a(SP)+ 

245 050472 162716 000010 SUB #10, (SP) sMOVE SP TO USER'S BRANCH 

246 050476 000240 NOP 

oe 050500 14$: 

249 ;REPORT AN ERROR IF ‘'RMR'' IS SET 

250 050500 032737 000004 001352 BIT #RMR,RMER1] ;WAS RMR SET?? 

251 050506 001424 BEQ :NO!! 

252 050510 013737 001352 001140 MOV RMER1I,S$GDDAT ;EXPECTED STATUS 

253 050516 042737 000004 001140 BIC #RMR , $GDDAT 

254 050524 013737 001352 001142 MOV RMER1I, $BDDAT sRECEIVED STATUS 

255 050532 062716 000004 ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 

256 050536 112776 9000106 000000 MOVB #106,a(SP) “WRITE ERROR NUMBER IN USER'S CALL 

257 050544 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 

258 050550 004736 JSR PC,a(SP)+ sREPORT ERROR VIA USER 

259 050552 162716 000010 SUB #10, (SP) :MOVE SP TO USER'S BRANCH 

26U 050556 000240 NOP 

261 050560 _~—Ci 15$: 

262 

263 ;REPORT AN ERROR IF ‘UNS‘' IS SET AND 'DVC'' IS 0 

264 050560 032737 040000 001352 BIT #HUNS ,RMER1I s WAS: UNSAFE ON?? 

265 050566 001430 BEQ NO! 

266 050570 032737 000200 001400 BIT ADVC,RMERZ] :WAS ‘tiene A DEVICE CHECK?? 

267 050576 001024 BNE 16$ YES - DON'T REPORT UNSAFE 

268 050600 013737 001352 001140 MOV RMER11,$GDDAT :EXPECTED STATUS 

269 050606 042737 040000 001140 BIC #UNS , $GDDAT 

270 050614 013737 001352 001142 MOV RMERII,$BDDAT ;RECEIVED STATUS 

271 050622 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 

272 050626 112776 000107 000000 MOVB #107, a(SP) ;WRITE ERROR NUMBER 

273 050634 162716 000002 SU8 #2, (SP) -MOVE SP TO RETURN FOR ERROR 

274 050640 004736 JSR PC,a(SP)+ =REPORT ERROR VIA USER 

275 050642 162716 000010 SUB #10, (SP) :MOVE SP BACK TO USER'S BRANCH 

276 050646 000240 NOP 

son 050650 16$: 

279 ;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

280 050650 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 

281 050654 105776 000000 TSTB a (SP) :WAS AN ERROR REPORTED?? 

282 050660 1403 BEQ 17$ *NO!! 

283 050662 062716 000004 ADD #4, (SP) sYES - AUGMENT SP RETURN 

284 050666 40 BR 18$ 

285 050670 162716 000004 17$%: SUB 44,(SP) ;NQ ERROR — RETURN SP TO BRANCH 
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286 050674 000240 18$: NOP 
287 050676 000207 RTS PC sSTATUS CECK IS COMPLETE 
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NAW WMO 
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050700 


050700 
050704 
050710 


050714 


oo 
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062716 
105076 
162716 


013737 


000240 
013737 


162716 
000240 


005037 


000004 
000000 
000004 
001336 
173700 
004010 
001140 
000004 
000141 
000002 
000010 
001350 
021101 
010600 
001140 
000004 
000142 
000002 
000010 
001140 
001352 
000004 
000143 
000002 


000010 
001354 


001466 
000001 
177400 
001142 
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CHECK SUBROUTINE 


001142 


000000 


001742 


-SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 
BR bee RETURN HERE IF NO ERROR 


s NOP RETURN HERE TO REPORT AN ERROR 
. ERROR ERROR NUMBER DEFINED BY S 
: JSR PC ,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
; 2??? RETURN HERE IF NO MORE ERRORS 
DRVSTS: 
CLEAR USER'S ERROR sae l. 

ADD #4,(SP s;MOVE SP TO ERROR CALL 

CLRB a (SP) ‘CLEAR ERROR CALL 

SUB #4, (SP) MOVE SP TO USER'S BRANCH 
;REPORT ERROR IF RMCS1 NOT INITIALIZED 
4$: MOV RMCS11,$BDDAT ;CHECK RMCS1 

BIC - #*°C<DVA!FNCMSK>, $BDDAT ; CLEAR yt CARES 

MOV ADVA!DRVCLR, $GDDAT “EXP ECT 

CMP $GDDAT, $BDDAT : COMPARE. EXPECTED "e RECEIVED 

BEQ 6$ “BRANCH IF EQUAL 

ADD #4, (SP) sMOVE SP TO ERROR CALL 

MOVB #141,a(SP) WRITE NUMBER OF ERROR IN CALL 


:MOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ ;REPORT THE ERROR VIA USER 
SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 


NOP 
sREPORT ERROR IF RMDS NOT INITIALIZED 
5$: MOV RMDSI ,$BDDAT : CHECK RMDS 

BIC #PGM!OM!VV'PIP, SBDDAT >CLEAR DONT CARES 

MOV #MOL ' DPR! DRY, $GDDAT :EXPECT DRY & DPR 

CMP $GDDAT , SBDDAT sCOMPARE EXPECTED & RECEIVED 

BEQ 6$ ;BRANCH IF EQUAL 

ADD #4,(SP) :MOVE SP TO ERROR CALL 
#142 ,a(SP) ;WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC,@(SP)+ sREPORT THE ERROR VIA USER 
SUB #10, (SP) sMOVE- SP TG NO ERROR RETURN 


NOP 
in — IF sel NOT aienes oe 


SUB #2, (SP) 


$GDDAT sEXPECT O'S 
MOV RMER1I,$BDDAT  ;CHECK RMER1 
BEQ 8$ ;BRANCH IF EQUAL 


ADD 4, (SP) 
#145,a(SP) 
SUB #2, (SP) 


:MOVE SP TO ERROR CALL | 
sWRITE NUMBER CF ERROR IN CALL 
sMOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ sREPORT THE ERROR VIA USER 
SUB #19, (SP) :MOVE SP TO NO ERROR RETURN 


NOP 
sREPORT ERROR IF ATA NOT INITIALIZED 
8$: MOV RMASI , $BDDAT ee ATTENTION BIT 
MOV R1,-(SP) PUSH R1 ON STACK 
MOV R2,-(SP) * PUSH R2 ON STACK © 


MOV TSTQUE ,R1 
MOVB 1(R1) ,R2 

BIC #“CATNMSK ,R2 
COM 2 


R 
BIC R2,$BDDAT 


— Se eee a eee eee. en ones ee ee ee -- 


eet tte seaemenestietemenmmemmens _— -_ 
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58 


RWU=SSSVRARGULSSSLRERK 


ee ee ee eed eed eed eet = 1 = 


051152 


051270 


051272 
051300 
051306 
051314 
051322 


051324 
051330 


NEES 
MARX 


OODOCCOOCO 
PATA AAI 


2D SOCOCoocc00eo 

AAAARAAA 
SETTLES eee 
MWRORME VERS 


Ww 
~s 
&* 
Vv 
MN 


001142 
000004 
000144 
000002 


000010 
001362 
000046 
000010 
001140 
000004 
000145 
000002 
000010 
001376 
140000 
011777 
001140 
000004 
000146 
000002 
000010 
001140 
001404 
000004 


001400 


000004 
000147 


000002 
000010 
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000000 


000000 


001142 


001142 


000000 


001142 


090000 


——i® » 


;REPORT 
9$: 


— 


— 
wm 


15$: 
;REPORT 


sREPORT 
17$: 


18$: 
19$: 


MOV (SP)+,R2 
MOV (SP) +,R1 
TST $BDDAT 
BEQ 9$ 

ADD #4, (SP) 
MOVB #1443 (SP) 
SUB #2, (SP) 
JSR PC ,a(SP)+ 


SUB #10, (SP) 


3zPOP STACK INTO R2 
7zPOP STACK INTO Ri 


:IS ATTENTION CLEARED?? 
7BRANCH IF ATTENTION CLEARED 
-MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 


“MOVE SP TO RETURN FOR ERROR 
sREPORT THE ERROR VIA USER 


sMOVE SP TO NO ERROR RF TURN 


NOP 
ERROR IF RMMR1 NOT INITIALIZED 
MOV 1, $8 


DDAT 
CMP SCDDAT, SBDDAT 


ADD #4, (SP) 
#145,a(SP) 

SUB #2, (SP) 

JSR PC,a(SP)+ 

SUB #10, (SP) . 


; CLEAR ri CARES 
;EXPECT WRITE DATA 


ON 
;COMPARE EXPECTED AND RECEIVED 
:BRANCH IF ZERO 
eee SP TO ERROR CALL 


ITE NUMBER OF ERROR IN CALL 


“MOVE SP TO RETURN FOR ERROR 
“REPORT THE ERROR VIA USER 
“MOVE SP TO NO ERROR RETURN 


NOP 
ERROR IF RMMR2 NOT INITIALIZED 
MOV 21,$8 


DDAT 


> CHECK RMMR2 


RMMR 
BIC #ROA'ROB, SBDDAT =CLEAR REQA, REQB 


MOV #1ST!1777,$GDDAT 
CMP $GDDAT, ,SBDDAT 


ADD #4,(SP) 
#146, a(SP) 
#2, (SP) 


JSR PC,a(SP)+ 
SUB #10, (SP) 
NOP 


CLR $GDD 

ERROR IF AME C2 NOT RESET 
MOV RMEC 21, $BDDAT 
BEQ 

ADD a 

MOVB ni50, ASP) 


SUB #2, (SP) 
JSR PC,a@(SP)+ 
SUB #10. (SP) 


NOP 
ERROR IF RMER2 NOT RESET 
MOV RMER2] 


I, SBDDAT 
BEQ 1 
ADD #4, (SP) 
MOVB #147,a(SP) 
SUB #2, (SP) 


JSR PC ,a(SP)+ 
SUB #10, (SP) 


;EXPECT TEST BIT ON 
; COMPARE. gt Al ag & RECEIVED 
:BRANCH IF EQUA 
sMOVE SP TO ERROR CALL 


:WRITE NUMBER OF ERROR IN CALL 
sMGVE SP TO RETURN FOR ERROR 
sREPORT THE ERROR VIA USER 
sMOVE SP TO NO ERROR RETURN 


sEXPECT ZEROS 


> CHECK RMEC2 
:BRANCH IF 0 


:MOVE SP TO ERROR CALL 


ITE NUMBER OF ERROR IN CALL 


“MOVE SP TO RETURN FOR ERROR 
“REPORT THE ERROR VIA USER 


sMOVE SP TO NO ERROR RETURN 


; CHECK RMER2 
:BRANCH IF NO ERROR 


:MOVE SP TO ERROR CALL 


WRITE NUMBER OF ERROR IN CALL 


“MOVE SP TO RETURN FOR ERROR 
“REPORT THE ERROR VIA USER 
“MOVE SP TO NO ERROR RETURN 


ER re ee Se 


SEQ 020" 
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SEQ 0208 


iiomamest* aes Pegg if ANY ERROR WAS FOUND 


218: 


#4,(S sMOVE SP TO ERROR CALL 
TSTB a(SP) 7WAS AN ERROR DETECTED?? 
BEQ 21% 3NO!! 
~ + _—s- “ ;VES = MOVE SP TO ERROR RETURN 
bon #4,(SP) ;MOVE SP BACK TO NO ERROM RETURN 
RTS PC SRETURN TO USER 


—— ee 
es a ee 
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} .SBITL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 
3 : THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
i [USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
5 =STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
: “THE ERROR NUMBER IN THE USERS ERROR CALL. 
8 USER" $ SUBROUTINE CALL: 
9 "(1) JSR PC. DTASTS 
10 7(2) BR RETURN HERE IF NO DATA ERRORS 
11 -(3) NOP RETURN HERE TO REPORT AN ERROR 
12 -(4) ERROR SUB WRITES ERROR NUMBER 
13 "(5) JSR PC, a(SP)+ USER RETURNS FOR MORE CHECKS 
14 = (6) 2? SUB RETURNS HERE AFTER ALL 
15 : ERRORS ARE REPORTED 
17 051502 DTASTS: 
19 :CLEAR USER'S ERROR CALL AND ERROR FLAGS 
20 651502 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR 
21 051506 105076 000000 CLRB = a(SP) *CLEAR LOW ORDER BYTE OF TRAP 
22 051512 162716 000004 SUB #4, (SP) “RESTORE SP TO NO ERROR 
23 051516 005037 055076 CLR 500$ “CLEAR ERROR FLAGS 
25 :REPORT ANY CONTROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS. 
27 051522 032737 020000 001336 BIT WMCPE,RMCS1I —-«; WAS:_- THERE A PARITY ERROR?? 
28 051530 001422 BEQ 10$ NO! ! 
29 051532 013737 001336 001140 MOV RMCS1I,$GDDAT ;EXPECTED STATUS 
30 051540 042737 020000 001140 BIC #MCPE , $GDDAT 
31 051546 013737 001336 001142 MOV RMCS1I,$BDDAT  :RECEIVED STATUS 
32 051554 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
33 051560 112776 000013 000000 MOVB  #13,a(SP) “WRITE ERROR NUMBER 
34 051566 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
35 051572 004736 JSR PC a(SP)+ :REPORT ERROR AND RETURN 
3% 051574 000466 BR 30$ 
37 051576 10$: 
39 REPORT AN ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS. 
41 051576 032737 000010 001352 BIT #PAR,RMER11 :WAS THERE A PARITY ERROR?? 
42 051604 001435 BEQ 20$ :NO!! 
43 051606 032737 000010 001400 BIT #DPE ,RMER2Z1 “DATA PARITY ERROR ? 
44 051614 001031 BNE 20 YES! ! 
45 051616 013737 001352 001140 MOV RMER1I,$GDDAT :EXPECTED STATUS 
46 051624 042737 000010 0601140 BIC #PAR , $GDDAT 
47 051632 013737 001352 001142 MOV RMER' I x SBDDAT :RECEIVED STATUS 
48 051640 062716 000004 ADD =MOVE SP TO USER'S ERROR 
49 051644 112776 000050 000000 MOVB #50. a(SP) “WRITE ERROR NUMBER 
50 051652 032737 001000 001346 BIT #MXF .RMCS21 “DID MXF GET SET?? 
51 051660 001003 BNE 15$ YES! ! 
52 051662 112776 000274 000000 MOVB  #274,a(SP) “NO - CHANGE ERROR NUMBER 
53 051670 162716 000002 15$: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
54 051674 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
35 051676 000425 BR 30$ 
57 ;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 
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001346 


001140 
001140 
001142 


000000 


001350 
001350 


000000 


000000 


001400 


001140 


:MECHANICAL POSITIONING 


sFIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
;CODE AND GO BIT WERE LOADED 


20% 
BIT #MXF .RMCS21 
40$ 
MOV RMCS21,$GDDAT 
GDDAT 


;WAS ‘MISSED TRANSFER'* SET?? 
‘EXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER 

;MOVE SP TO RETURN IF ERROR 


JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 


30$: 

sRESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING 
SUB #10, (SP) VE SP TO NO ERROR 
JMP 380$ = SKIP TO END OF SUB 

4O$: 


sREPORT AN ERROR IF “‘OPI'’ ERROR OCCURRED DUE TO ‘MOL’’ = 0, OR IF ‘OPI'’ 
a ee MOL'' ARE SET, BUT ‘VV'' IS RESET, INDICATING AN INTERMITTENT 


; BIT #OP I /RMER1I :1S *OPI"’ SET?2 
MOV RMER1I, SGDDAT [EXPECTED STATUS 


BIC #OP1,$GDDAT 
MOV RMERII,$BDDAT  ;RECEIVED STATUS 


BIT #MOL .RMDS! :WAS MEDIUM OFF LINE?? 
BEQ 45$ 3 vees 

BIT AVV..RMDS! WAS MOL" INTERMITTENT ?? 
BNE 50$ 


45$: ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 
MOVB #276,a(SP) sWRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
JSR PC,a(SP)+ :REPORT ERROR AND RETURN 
ay 1b itl sRESTORE SP TO NO ERROR 


50$: 


;REPORT “OPI'' ERROR, WHICH IS DUE TO ‘'ON CYLINDER’ NOT DROPPING OR 
:"'RUN'' TIMEOUT (20 Ms) OR SEARCH TIMEOUT (50 M 
ADD (SP) :MOVE SP TO USER" S ERROR CALL 
MOVB wry a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) -MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) “RESTORE SP TO NO ERROR 


608: 


LOOK FOR ‘‘IVC’* ERROR DURING COMMAND INITIATION 
BIT moe” »RMERZ] WAS | THERE AN ‘*IVC** ERROR?? 


BEQ :NO! 
;REPORT “IVC'' ERROR DUE TO ‘‘Vv'' = 0, ‘oR REPORT ERRONEOUS ‘‘IVC*’ ERROR 
MOV RMER2I,$GDDAT ;EXPECTED STATUS 


SEQ 0210 


-— 


© 
Vw 
mng 
—_ —» 
yn 
Oo 


eleleleleleleleleale) 


05 
052272 
052274 


052274 
052302 
304 


0 
052352 
052354 


052354 


ee ed ed ed etd ot od = I I £3 3 63 3-H I J) J) I 8 8) ed 2) 3 oo es) od ee et 


004736 
162716 


032737 
001510 


032737 
001424 
age 
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010000 
001400 
000004 


000300 
000100 


000301 
000002 
000010 


000007 


000002 
001352 
0 


302 
000002 
000010 


000001 
001352 
000001 
001352 
000004 
000303 
000002 
000010 


000004 
001352 
000004 
001352 
000004 
000304 
000002 
000010 


D1 
MACRO + a 4-APR-81 11:43:33 PAGE 35-2 


001140 
001142 
000000 
001350 
000000 


001352 


001352 
001140 
001140 
001142 


000000 


001352 
001140 
001140 
001142 


000000 


001552 
001140 
001140 
001142 


000000 


65$: 


70$: 
:SEE IF 


;REPORT 


80$: 
s;REPORT 


90$: 
sREPORT 


#1VC,$GDDAT 


sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR 
:WRITE ERROR NUMBER IN CALL 
+ cata VALID?? 


; CHANGE ERROR NUMBER 

sMOVE SP TO RETURN IF ERROR 
REPORT “‘IVC'’ ERROR AND RETURN 
sRESTORE SP TO NO ERROR | 


T 
. RMERTI 


;NO ERRORS DETECTED 
WAS “‘ILR'’ DETECTED?? 
sNO!! 

sEXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR CALL 
;WRITE ERROR R_ IN CALL 
sMOVE SP TO RETURN IF ERROR 
sREPORT ERROR AND RETURN 
sRESTORE SP TO NO ERROR 


zWAS “LF DETECTED?? 
‘EXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR CALL 
sWRITE ERROR NUMBER IN CALL 
sMOVE SP TO RETURN IF ERROR 
;REPORT ERORR AND RETURN 
sRESTORE SP TO NO ERROR 


:MAS |" ROR DETECTED?? 
“EXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR CALL 
:WRITE ERROR NUMBER IN CALL 
sMOVE SP TO RETURN IF ERROR 
sREPORT ERROR AND RETURN 
;RESTORE SP TO NO ERROR 


MOV RMER21, $BDDAT 
ADD #4, (SP) 

MOVB  #300,a(SP) 
BIT #VV,RMDSI 

BEQ 65$ 

MOVB  #301.a(SP) 
SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #19, (SP) 
“ILF'’ OR ‘'RMR'' IS SE 
BIT #ILR!ILF'RMR 
BEQ 100$ 

AN ERROR IF “‘ILR'' IS SET 
BIT #ILR,RMER1] 
BEQ O$ : 

MOV RMER11,$GDDAT 
BIC #ILR,$GDDAT 
MOV RMER11, $BDDAT 
ADD #4, (SP) 

MOVB  #302,a(SP) 
SUB #2, (SP) 

JSR PC. a(SP)+ 

SUB #10, (SP) 

NOP 

AN ERROR IF “‘ILF'' IS SET 
BIT #ILF .RMER1I 
BEQ 90$ 

MOV RMER11,$GDDAT 
BIC #HILF ,SGDDAT 
MOV RMER11, $BDDAT 
ADD #4, (SP) 

MOVB  #303,a(SP) 
SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #10, (SP) 

NOP 

AN ERROR IF ‘'RMR'' IS SET 
BIT #RMR ,RMERTI 
BEQ 0$ 

MOV RMER11,$GDDAT 
BIC #RMR , SGDDAT 
MOV RMER11,$BDDAT 
ADD #4, (SP) 

MOVB  #304,a(SP) 
SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #10, (SP) 

NOP 


100$: 
:DETERMINE WHETHER OR NOT ""ITAE'' SHOULD BE SET AND CHECK FOR ERROR 





172 052434 


2-3 
aNoo 
oOo oO 
wi 
Nm 
° 
zg 


RARANLSSEIRARATLSZ 


SS SB SM Ht SS Ve et oe oe ee 
Sek e) 
CON 
oOo 
Wu 
Nm 
2 


3 
& 


200 052612 
201 


202 
205 052612 
204 620 


mMMNMNoNNNN 
Ne SS = 
COONAN E WI 


221 052710 


012737 


123737 
101016 


123727 


005037 
013737 
042737 


162716 


013737 


001413 
062716 
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001421 


001420 
010000 
001420 
001140 
001352 
175777 
0061140 
040000 
000004 
000305 
000002 


000010 


001400 


000002 
000016 


040000 
000004 
000307 
000002 
000010 


MACRO V04.00 


001140 
055076 
001466 
055076 
001335 


000035 
001444 
000037 


001142 
001142 
001142 
055076 


000000 


001142 


001400 
055076 


000000 


055076 


000000 


105$: 
110$: 


115$: 


1208: 
;REPORT 


140$: 
;REPORT 


. 3 
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#IAE ,$GDDAT 
#SK1 ,500$ 
RMDCO,#822. 
110$ 


#SKI,500$ 


RMDAO+1 ,LSTRK+1 
110$ 


RMDAO , #29. 
105$ 


#FM116,RMOFO 
110$ 


RMDAO ,#31. 
110$ 
$GDDAT 


RMER11 , $BDDAT 
A“CIAE , SBDDAT 
$GDDAT , $BDDAT 
115$ 


#SKI ,500$ 
1208 


4305 BSP) 
#2, (SP) 
PC a(SP)+ 
#10, (SP) 


sSETUP FOR “'IA ~* 
;SETUP FOR ‘ 7” 
GREATER THAN. LAST cv 
;YES = CYLINDER IS INVAL 
;RESET SKI FLAG 


NDcR ? 
ID 


;GREATER THAN LAST TRACK ? 
;YES = TRACK IS INVALID 


:1S SECTOR > 29. ? 


718 BIT FORMAT 

VES = - SECTOR 18 INVAL ID FOR 18 BIT MODE 
iI SECTOR > 31. 

Yes = SECTOR IS INVALID 

STE" SHOULD = 0 


sGET RECEIVED STATUS 

71S *“"IAE’* STATUS OK?? 
:NO!! 

;IAE OK - SKI SHOULD BE 0 


sMOVE SP TO USER*S ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO “gig IF ERROR 
sREPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


oe ERROR IF ‘'SKI'' IS SET AND ‘'IAE’* STATUS WAS Ok 


BIC #°CSKI. 
MOV 500$, SGDDAT. 
BIC #*CSKI,$GDDAT 
BIT #SKI JRMER21 
BEQ 140$ 

BIT #SKI,500$ 
BNE Ly 

ADD 

MOVB +366. SSP) 
SUB #2, (SP) 

JSR PC,a(SP)+ 
SUB #10, (SP) 
BR 150$ 

AN ERROR IF SKI = 
BIT #SK1,500 
BEQ per 

ADD #4, (SP) 
MOVB 4307. a (SP) 
SUB #2, (SP) 

JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 


RMER2I1, taal 


O AND 


sRECEIVED STATUS 


sEXPECTED STATUS 
; WAS , SKI SET?? 
;NO!! 


ZS. SKI CAUSED BY IAE = 0?? 
;YES - DON'T REPORT SKI 

:MOVE SP TO USERS ERROR CALL 

;WRITE ERROR NUMBER 

:MOVE SP TO RETURN IF ERROR 

;REPORT ERROR AND RETURN 

:MOVE SP TO NO ERROR 


IAE WAS NOT DETECTED 
; SHOULD SKI BE SET?? 


-MOVE SP TO USER'S ERROR CALL 


:M 
:REPORT ERROR AND RETURN 
:RESTORE SP TO NO ERROR 


SEQ O21¢ 


F 1 
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$63 052746 150$: 


SEQ 021% 


ae NE EEE eee 


23 

231 ;LOOK FOR ‘‘LSC’’ OR ‘LBC'’ OR “DVC** IN ERROR REGISTER #2 

232 052746 032737 006200 001400 BIT ALSC!LBC!DVC,RMER21 

$47 052754 001512 BEQ 180$ ;NO ERRORS SET 

235 sREPORT ANY DEVICE. FAULT, I.E., ‘DVC'' = 1 

236 052756 032737 000200 001400 BIT ADVC .RMER21 sIS ‘DVC"’ = 1?? 

237 052764 001424 BEQ 16 ;NO!: 

238 052766 013737 001400 001140 MOV RMER21,$GDDAT ;EXPECTED STATUS 

239 052774 2737 000200 001140 BIC ADVC,$GDDAT 

2460 053002 0135737 001400 001142 MOV RMER21,$BDDAT ;RECEIVED STATUS 

241 9055010 2716 000004 ADD #4, (SP) ;MOVE SP TO USERS ERROR 

242 053014 112776 000310 000000 MOVB #310,a(SP) ‘WRITE ERROR NUMBER IN CALL 
243 053022 162716 000002 SUB #2, (SP) -MOVE SP TO RETURN IF ERROR 
244 053026 004736 JSR PC,a(SP)+ ; REPORT ERROR AND RETURN 
245 053030 162716 000010 SUB #10, (SP) sRESTORE SP TO NO ERROR 

246 053034 000240 NOP 

ots 053036 160$: 

249 sREPORT LOSS OF BIT CLOCK, I.£.; ‘LBC’’ = 1, IF ‘™MOL’’ = 

250 053036 032737 002000 001400 BIT ALBC, RMERSI_ :IS LBC set?7 

251 053044 001430 BEQ 170$ :NO!! 

252 053046 032737 010000 001350 BIT AMOL ,.RMDSI :WAS LBC ERROR BY MOL = 0 
253 053054 001424 : BEQ 170$ VES: : 

254 053056 013757 001400 007140 MOV RMER21,$GDDAT ;EXPECTED STATUS 

255 053064 042737 002000 001140 BIC ALBC ,SGDDAT 

256 053072 013737 001400 001142 MOV RMER2I,$BDDAT ;RECEIVED STATUS 

257 053100 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
258 053104 112776 000311 000000 . MOVB 4311,a(SP) ;WRITE ERROR NUMBER IN CALL 
259 053112 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
260 053116 004736 JSR PC ,a(SP)+ ;REPORT ERROR AND RETURN 
261 053120 162716 000010 SUB #10, (SP) sRESTORE SP TO NO ERROR 
262 053124 000240 NOP 

Fors 053126 170$: 

265 tos sREPORT LOS OF SYSTEM CLOCK, I.E., “LSC'' = 1 

266 053126 032737 004000 001400 BIT ALSC,RMER2I 31S USC" = 17? 

267 053134 001422 BEQ 180$ sNO!! 

268 053136 013737 001400 00114C MOV RMER21,$GDDAT ;EXPECTED STATUS 

269 053144 042737 004000 001140 BIC ALSC,SGDDAT 

270 053152 013737 001400 001142 MOV RMER2I ,$BDDAT ;RECEIVED STATUS 

271 053160 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
272 053164 112776 000312 000000 MOVB #312,a(SP) :WRITE ERROR NUMBER 

273 053172 004736 JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 
274 053174 162716 000010 SUB #10, (SP) :RESTORE SP TO NO ERROR 
275 053200 000240 NOP 

$35 053202 180$: 

278 ;LOOK FOR ‘'UNS'’ OR ‘'DTE'’ OR 'WLE'' IN ERROR REGISTER #1 

279 053202 032737 054000 001352 HH AUNS!DTE!WLE,RMER1I 

280 053210 001527 220$ ;NO BITS SET 

281 REPORT PONS" ERROR “4 ‘DvCc’’ = 0 

282 053212 032737 040000 001352 BIT AUNS ,RMER11 s1S ‘UNS’ SET?? 

283 053220 001427 REQ 190$ :NO!: 

284 053222 032737 000200 001400 BIT ADVC,RMER2] ;WAS ‘'UNS"' CAUSED BY ‘DvC"'?? 
285 053230 001025 BNE 190$ YES; ; 








286 053232 
287 0 0 


326 053464 
327 
328 053470 
329 


330 
331 053470 


013737 


6 
162716 


032737 


162716 


0327357 


162716 
062716 


000137 
162716 


013737 
042737 
022737 
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001352 
040000 
001352 
000004 
000313 
000002 
000010 


010000 


000002 
000010 


064000 


001352 
001352 


000010 


000316 
004000 
000002 


000010 


000004 
000000 


000004 
054510 
000004 


001412 
177700 
000063 


MACRO 


001140 
001140 
001142 


000000 


001352 
001140 
001140 
001142 


000000 


001352 


001142 
001140 
001140 


000000 
001350 


001412 


000000 
001140 


055100 
055100 
055100 
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MOV RMER11,$GDDAT 

BIC #UNS , SGDDAT 

MOV RMER11,$8DDAT 

ADD #4, (SP) 

MOVB #313,a(SP) 

SUB #2, (SP) 

JSR PC ,a(SP)+ 

SUB #10, (SP) 
190$: 


;REPORT ANY DRIVE TIMING ERROR, I.E. 


BIT ADTE,RMER1] 
200$ 


MOV RMER11,$GDDAT 

BIC ADTE,$GDDAT 

MOV RMER11,$BDDAT 

ADD #4, (SP) 

MOVB #314 ,a(SP) 

SUB #2, (SP) 

JSR PC,a(SP)+ 
#10, (SP) 

2008: 


sREPORT AN ERROR IF WRITE LOCK ERROR IS SET. 


;WRITE glade OR IF FUNCTION 
BIT #WLE .RMER1! 
220$ 


MOV RMER11 ,$BDDAT 
MOV RMER11 ,SGDDAT 
BIS AWLE , SGDDAT 
ADD #4, (SP) 

MOVB #315 ,a(SP) 


BIT AWRL ,RMDSI 
BEQ 205$ 
BIT #B1T3,RMCS10 
BEQ 210$ 

205$: MOVB #316,a(SP) 


BIC #WLE , SGDDAT 
210$: SUB #2, (SP) 

JSR PC,a(SP)+ 

SUB #10, (SP) 


2208: 


sEXPECTED STATUS 


sRECEIVED STATUS 
E SP TO USERS ERROR CALL 


:MOV 
;WRITE ERROR NUMBER 
:MOVE SP TO RETURN IF ERROR 


;REPORT ERROR AND RETURN 
sRESTORE SP TO NO ERROR 


‘ere = 
Dt DTE SET?? 


sEXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR CALL 
:WRITE ERROR NUMBER IN CALL 
;MOVE SP TO RETURN IF ERROR 
sREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


SEE IF DRIVE IS NOT 
WAS NOT A WRITE 
wot: "WLE’’ SET?? 


sRECEIVED STATUS 
sEXPECTED STATUS 


:MOVE SP TO USERS ERROR CALL 
“WRITE ERROR NUMBER IN CALL 
;WAS DRIVE WRITE PROTECTED?? 
: WAS COMMAND A WRITE?? 
“CHANGE ERROR NUMBER 

:MOVE SP TO RETURN IF ERROR 


;REPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


sOMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 
ADD . (SP) ROR 


BEQ 225$ 

SUB #4, (SP) 

JMP 340$ 
225$: SUB #4, (SP) 


:CHECK HEADER ERRORS IF FUNCTION 


VE SP TO USER'S ER 
:WAS ERROR DETECTED?? 


:NO - DO DATA CHECKS 


sRESTORE SP 
:SKIP DATA CHECKS 
:RESTORE SP 


WAS NOT WRITE HEADER AND DATA, AND 


:1f HEADER COMPARE IS NOT INHIBITED 


MOV RMCS10,510$ 
BIC #*CFNCMSK ,510$ 
CMP #WH!GO,510$ 


erm me ee ee 


;STRIP AND STORE FUNCTION CODE 
SWAS FUNCTION WRITE HEADER & DATA?? 


SEQ 0214 
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343 053540 
3, 


345 0535550 

346 

347 

348 053552 
9 053560 


1 
$52 053562 


6 055606 
357 053614 
358 053620 
359 053626 


3 0535706 
374 055710 
375 053712 


378 053712 


39 
399 054036 


001572 
032737 
001106 


032737 
001533 


032737 


001453 


002000 
000620 


000400 
007352 


000002 


000020 
001352 


000320 
000002 


000200 
001352 
000200 


000002 


000620 
001352 
000620 
001352 
000004 
000322 
000002 


H 1 
MACRO VO4.00 4-APR-81 11:45:55 PAGE 35-6 


001370 
001352 


001352 
001140 
001140 
001142 


000000 


001352 
001140 
001140 
001142 


000000 


001352 
001140 
001140 
001142 


000000 


001352 
001140 
001140 
001142 


000000 


3SEE IF 


:REPORT 


230$: 
;REPORT 


2408: 


sREPORT 


250$ 





BEQ 250$ YES = SKIP HE ADER CHECKS 

BIT #HC] ,RMOF | :WAS 1 ET? 

BNE 250$ YES = SKIP HEADER CHECKS 

ANY HEADER ERRORS ARE SET, I.E., ‘FER'’ OR ‘HCRC*’ OR ‘HCE*’ 
BIT MHCRC!FER!HCE,RMERTI 

BEQ 270$ zNO ERRORS SET 


i CRC ERROR IF SET 
BIT AHCRC,RMER11 sWAS ACRC SET?? 
230$ NO! ! 


MOV RMER11,$GDDAT ;EXPECTED STATUS 
BIC #HCRC, $GDDAT 


MOV RMER11,$BDDAT ;RECEIVED STATUS 
ADD #4, (SP) ;MOVE SP TO USERS ERROR 
MOVB #317,a(SP) ;WRITE ERROR NUMB 


ER 
:MOVE SP TO RETURN IF ERROR 
;REPORT ERROR AND RETURN 


SUB #2, (SP) 
JSR PC ,a(SP)+ 
260$ 


— ERROR IF SET 
BIT AFER,RMER1] 
240$ 


MOV RMER11,$GDDAT 
BIC #FER,SGDDAT 
MOV RMER11 , $BDDAT 
ADD #4, (SP) 
#320,a(SP) 
SUB #2, (SP) 

JSR PC,a(SP)+ 

BR 260$ 


;WAS ‘FER’ SET?? 
sNO!! 
sEXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO USERS ERROR 
;WRITE ERROR NUMBER 

;MOVE SP TO RETURN IF ERROR 
:REPORT ERROR AND RETURN 


eT COMPARE ERROR IF SET 
BIT arb. ,RMER1I sWAS “HCE” ee 


0 + 
MOV RMER1I,$GDDAT EXPECTED STATUS 
BIC #HCE , SGDDAT 
MOV RMER1I,$BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) :MOVE SP TO USER'S ERROR 
#321,a(SP) ;WRITE ERROR NUMBER 
SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
JSR PC .@(SP)+ sREPORT ERROR AND RETURN 


BR 
: THERE SHOULD BE NO HEADER ERRORS BECAUSE 
. COMMAN 


D WAS WRITE HEADER AND DATA, OR 
-HEADER COMPARE INHIBIT WAS SET 
BIT MHCE!FER!HCRC, RMER R11] 
BEQ 270$ NO ERRORS WERE SET 
MOV RMER11,$GDDAT __; EXPECTED STATUS 
BIC HCE | FERIHCRC. $GDDAT 
MOV vty E = sRECEIVED STATUS 
ADD :MOVE SP TO ite ERROR CALL 


MOVB W300. BSP) “WRITE ERROR 
SUB #2, ep) “MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 


——— + we eee ee tee ee 
_ nn rms et ee es ee eee we eee —<2— 


SEQ 0215 
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400 


054040 


401. 054044 


402 
403 
04 


408 


2 
453 


054050 


054050 
054056 


054146 
054154 


054156 


5 
054210 
054214 


054214 


054276 
054276 
054304 


054306 
054314 


162776 
000137 


032737 
001002 
000137 


032737 


001007 
032737 


162716 


032737 
001423 


042737 


000010 
054510 


000010 
054276 


100000 
001352 
100000 
001352 
000004 
009323 
004000 
000324 
000100 
000020 
000004 


000325 
000002 


000010 


000400 
001346 


000010 
054510 


000001 


001350 
000001 
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055100 


001352 
001140 
001140 
001142 


000000 
001370 


000000 
001352 


055100 


000000 


001346 
001140 
001140 
001142 


000000 


001350 


001140 
001140 


260$: 


270$: 


> IF COMMAND WAS A WRITE COMMAND, 
:DO READ 7 CHECKS 


:MOVE SP TO NO ERROR 


SUB #10, (SP) 
JMP 340$ ;OMIT FURTHER DATA CHECKS 


GO DO WRITE ERROR CHECKS, OTHERWISE 


B #B1T3,510$ :WAS THIS A WRITE COMMAND? 
BNE 275$ “NO! ! 
JMP 319$ =GO DO WRITE STATUS CHECK 
2753: 
:REPORT DATA CHECK IF SET 
BIT #DCK,RMER1I ;DATA CHECK ERROR?? 
BEQ 290$ NO! 
MOV RMER11,$GDDAT s EXPECTED STATUS 
BIC #DCK, $GDDAT 
MOV RMERII.$BDDAT  -:RECEIVED STATUS 
ADD #4, (SP) “MOVE SP TO USER'S ERROR 
MOVB  #323,a(SP) ;WRITE ERROR NUMBER 
BIT #ECI.RMOF I WAS ECC CORRECTION DISABLED?? 
BNE 280$ = YES! 
MOVB  #324,a(SP) : Cpiawebe TO RECOVERABLE ERROR 
BIT #ECH,.RMER1! :1S ERROR RECOVERABLE ?? 
BNE 276$ =NO 
=DO NOT REPORT RECOVERABLE ERROR IF READ COMMAND 
BIT #B1T4,510$ WAS THIS A READ COMMAND ?? 
BEQ 280$ 
SUB #4, (SP) RESTORE SP 
BR 9 “SKIP ERROR - DATA WILL BE CORRECTED 
276$: MOVB  #325.a(SP) =CHANGE TO NON RECOVERABLE 
280$: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) “RESTORE SP TO NO ERROR 
2908: 
:REPORT DATA BUS PARITY ERROR IF SET. I.£.. MDPE = 1 
BIT #MDPE .RMCS21 ; PARITY ERROR SET?? 
BEQ 300$ *NO!! 
MOV RMCS2I SGDDAT SOXPECTED STATUS 
MOV ancsal s SBDDAT sRECEIVED STATUS 
ADD *MOVE SP TO USER'S ERROR 
MOVB 4356) BSP) “WRITE ERROR NUMBER 
SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
JSR PC. atSP)+ =REPORT ERROR AND RETURN 
SUB #10, (SP) “MOVE SP TO NO ERROR 
300$:  JMP 340$ “SKIP WRITE STATUS CHECK 
310$: 


;TEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF ‘OM = 1 
B SET ON?? 





#0M,,RMDSI IS OFF 
320$ ; 


20 ; 
MOV RMDSI,$GDDAT sEXPECTED STATUS 
BIC 40M, $GDDAT 


SEQ 0216 


er eeeEeEeEe——— 
——————— ee ee 


ee eee oe 


J 7 
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457 054322 013737 001350 001142 MOV RMDS I $BDDAT RECEIVED STATUS 
458 054330 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
459 054334 112776 000327 000000 MOVB w307, a(SP) “WRITE ERROR NUMBER IN CALL 
460 054342 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
461 054346 004736 JSR PC“ a(SP)+ “REPORT ERROR AND RETURN 
462 054350 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 
465 054354 3208: 
465 : TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF ‘DPE’’ = 1 
466 054354 032737 000010 001400 BIT #DPE,RMER21 :DATA PARITY ERROR?? 
467 054362 001423 BEQ 330$ “NO! ! 
468 054364 013737 001400 001140 MOV RMER21,$GDDAT  :EXPECTED STATUS 
469 054372 042737 000010 001140 BIC #DPE , $GDDAT 
470 054400 013737 001400 001142 MOV RMER21,$BDDAT  ;RECEIVED STATUS 
471 054406 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
472 054412 112776 000330 000000 MOVB #380, a(SP) “WRITE ERROR NUMBER 
473 054420 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
474 054424 004736 , JSR PC. a(SP)+ “REPORT ERROR AND RETURN 
475 054426 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 
476 054432 330$: 
478 ;TEST FOR WRITE CLOCK FAILURE; REPORT ERROR LF "WCF'’ = 1 
479 054432 032737 000040 001352 BIT AWCF .RMER1! 71S ‘WCF’ SET?? 
480 054440 001423 BEQ 340$ *NO!! 
481 054442 013737 001352 001140 MOV RMER11,$GDDAT :EXPECTED STATUS 
482 054450 042737 000040 001140 BIC #WCF ,$GDDAT 
483 054456 013737 001352 001142 MOV RMERII.$BDDAT  -:RECEIVED STATUS 
484 054464 062716 000004 ADD #4, (SP) *MOVE SP TO USERS ERROR CALL 
485 054470 112776 000331 000000 MOVB #331,a(SP) “WRITE ERROR NUMBER 
486 054476 162716 000002 SUB #2, (SP) -MOVE SP TO RETURN IF ERROR 
487 054502 004736 JSR PC. a(SP)+ *REPORT ERROR AND RETURN 
488 054504 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 
489 054510 3408: 
491 : REPORT “DATA LATE’’ ERROR IF ‘DLT'' = 1 
492 054510 032737 100000 001346 #DLT,RMCS2] :1S ‘DLT'* SET?? 
493 054516 001423 a 350$ NO! 
494 054520 013737 001346 001140 MOV RMCS21,$GDDAT SOKPECTED STATUS 
495 054526 042737 100000 001140 BIC #DLT, $GDDAT 
496 054534 013737 001346 001142 MOV RMCS21,$BDDAT  ;:RECEIVED STATUS 
497 054542 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
498 054546 112776 000332 000000 MOVB  #332,a(SP) “WRITE ERROR NUMBER 
499 054554 162716 000002 SUB #2, (SP) -MOVE SP TO RETURN IF ERROR 
500 054560 004736 JSR PC. a(SP)+ *REPORT ERROR AND RETURN 
501 054562 162716 000010 SUB #10, (SP) =MOVE SP TO NO ERROR 
502 054566 350$: 
503 :LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS 
504 054566 013746 001350 MOV RMDSI.-(SP) -STACK DRIVE STATUS 
505 054572 042716 147677 BIC #*C<PIP'MOL'VV>, (SP) :CLEAR DONT CARES 
06 054576 922726 010100 CMP #MOL'VV,(SP)+  °:IS DRIVE STATUS OK?? 
207 054602 001522 BEQ 380$ “YES!! 
309 ;REPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 
511 054604 032737 020000 001350 BIT #PIP,RMDS] :1S ‘PIP'* SET?? 
512 054612 001430 BEQ 360$ =NO!! . 
513 054614 032737 040000 001400 BIT #SK1,RMER21 “WAS ''SKI'' ERROR REPORTED?? 





en re mm ee ee > + wee = - _ - 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE SEQ 0216 





$14 054622 001024 BNE ;YES-DONT REPORT PIP 

$15 084624 013737 001350 001140 MOV RMDSI,$GDDA sEXPECTED STATUS 

516 054632 042737 02 001140 BIC #PIP,$GDDAT 

517 054640 013737 001350 001142 MOV RMDSI.$BDDAT = RECEIVED STATUS 

518 4646 062716 ADD #4, (SP) ;MOVE SP TO USERS ERROR CALL 
519 054652 112776 000333 000000 MOVB #333,a(SP) WRITE ERROR NUMBER 

520 054660 162716 SUB ~ (SP) “MOVE SP TO RETURN IF ERROR 
521 054664 0047 JSR PC ,a(SP)+ -REPORT ERROR AND RETURN 

5S 4666 162716 000010 SUB #10, (SP) s;MOVE SP TO NO ERROR 

523 054672 000240 NOP 

524 054674 360$: 

526 :REPORT ERROR IF MEDIUM, 1s NOT ON LINE AND OPI ERROR WAS NOT 
527 sREPORTED, I.E., MOL = = 0 

528 054674 032737 010000 001350 BIT #MOL , RMDSI ;1$ MEDIUM ON LINE?? 

529 054702 001027 BNE 70$ YES! 

530 054704 032737 020000 001352 BIT #OP.] ,RMER1I =WAS OPI ERROR REPORTED?? 
$31 054712 001023 BNE 370$ “YES! 

532 054714 013737 001350 001140 MOV RMDS1,$GDDAT S ENPECTED STATUS 

$33 054722 052737 010000 001140 BIS #MOL , $GDDAT 

534 054730 013737 001350 001142 MOV RMDSI,$BDDAT — :RECEIVED STATUS 

535 054736 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR 
536 054742 112776 000334 000000 MOVB #334.a(SP) “WRITE ERROR NUMBER 

537 054750 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
538 054754 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
539 054756 162716 000010 SUB #10, (SP) -MOVE SP TO NO ERROR 

940 054762 370$: 

542 :REPORT ERROR IF ee IS NOT VALID AND ‘‘IVC’’ ERROR was NOT 
543 :REPORTED, 1.£., VV = IVC = 0 

544 054762 032737 000100 001350 BIT WV MDS :1S VOLUME VALID?? 

545 054770 001027 BNE 380$ YES! ! 

546 054772 032737 010000 001400 BIT #IVC,RMER2Z] “WAS IVC ERROR REPORTED?? 
547 055000 001033 BNE 390$ YES! ! 

548 055 013737 001350 001140 MOV RMDSI,$GDDAT §_: EXPECTED STATUS 

549 055010 052737 000100 001140 BIS AVV, $GDDAT 

550 055016 013737 001350 001142 MOV RMDSI.$BDDAT  :RECEIVED STATUS 

551 055024 062716 004 ADD #6, (SP) =MOVE SP TO USERS ERROR CALL 
552 055030 112776 000335 000000 MOVB #335,a(SP) “WRITE ERROR NUMBER 

553 055036 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN IF ERROR 
554 055042 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
555 055044 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR 

356 055050 3808: 

558 : AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 

559 055050 062716 000004 ADD #4, (SP) ;MOVE SP TO ERROR CALL 

560 055054 105776 000000 TSTB.~—s_ a(SP) “ANY ERROR?? 

561 055060 001403 BEQ 390$ “NO! ! 

562 055062 062716 000004 ADD #4, (SP) :YES - MOVE SP TO ERROR RETURN 
563 055066 000402 BR O$ 

ete 055070 162716 000004 390$: SUB #4, (SP) sMOVE SP TO NO ERROR RETURN 
366 055074 000207 400$: RTS PC -RETURN TO USER 

568 055076 000000 500$:  .WORD :ERROR FLAGS 

569 055100 000000 510$: . WORD ; TEMPORARY STORAGE 
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NON 
FO OD NOUS WR OC ODO NOAM wrn- 


055224 


6 055224 
7? 055232 


062716 
105076 
162716 


013746 
001524 


032737 


032737 
001030 


000004 


001350 
147677 
010100 


010000 
020000 
001350 
010000 
001350 
000004 
000207 
000002 
000010 


000100 
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001350 


001142 
000000 


001350 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 


;THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
:STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE S 


:CAN BE USED BY HOUSEKEEPING AND OTHER 


SUBROUT I NE 
COMMANDS DURING WHICH THERE 


:SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 


MOL 
THAT MOL IS 
p 
I 


— CONDITIONS ARE TESTED AND REPORTED AS ERRORS 


O, INDICATES DRIVE WENI OFFLINE, NOTE 
SUMED TO HAVE BEEN SET 

» INDICATES THE DRIVE LOST VOLUME VALID 
1, INDICATES THAT THE DRIVE ER 

1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
1, INDICATES AN UNEXPECTED DEVICE FAULT 


IS OFF CYLIND 


>THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 


(1) 


JSR PC,STCDRVSTS 
B 272 


JSR PC,a(SP)+ 


STCDRVSTS: 


: CLEAR =. ERROR CALL 


sSEE IF 


;REPORT 


10$: 
;REPORT 


D #4, (SP) 
CLRB a(SP) 
SUB #4, (SP) 
‘MOL’ = ‘VW = 1, 
MOV RMDSI,~( 


SP) 
BIC #*C<PIP!MOL !VV>, (SP) 
CMP A VV, (SP) + 


BEQ 

AN ERROR IF MOL = 
BIT #MOL . 

BNE 


BIT #OPI ,RMER11 
BNE 10$ 
MOV RMDSI , $GDDAT 


#2, (SP 
JSR PC a(SP)+ 
SUB #10, (SP) 


RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


sMOVE SP TO USER'S ERROR CALL 
;CLEAR ERROR NUMBER 


pi Move SP BACK TO NO ERROR RETURN 
:PUT DRIVE STATUS ON STACK 

:ARE MOL,VV AND PIP 0.K.?? 
YES! ! 


“OPI'' = 0 
1S MOL ON ?? 
ZYES!! 


:WAS ‘“‘OPI'' SET?? 
;YES-DONT REPORT *MOL"’ = 0 
sEXPECTED STATUS 


sRETE. VED STATUS 

:MOVE SP TC USER'S ERROR CALL 
sWRITE ERROR NUMBER IN CALL 
:MOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 

:MOVE SP BACK TO NO ERROR RETURN 


AN ERROR IF VOLUME VALID IS NOW ZERO AND “IVC = 0 
DS! 313 W" = 0?? 


BIT AVV,RM 
BNE 20$ 





er ee em ee ee ne we oe ane at —_— 
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CZRMNBO RMOS/3/2 FCINL TST 2 
STATIC DRIVE STATUS CHECK SUBROUTINE SEQ 0220 
58 055234 032737 010000 001400 BIT #1VC.RMER2! :WAS ‘‘IVC'' SET?? 
59 055242 001024 BNE 20$ = VES=DONT REPORT ‘Vv = 0 
60 055244 013737 0013506 001140 MOV RMDSI,$GDDAT § :EXPECTED STATUS 
61 055252 052737 000100 001350 BIS #VV.RMDSI 
62 055260 013737 001350 001142 MOV RMS I, $BDDAT  ;RECEIVED STATUS 
63 055266 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
| 64 055272 112776 000210 000000 MOVB w2i0. a(SP) ;WRITE ERROR NUMBER IN CALL 
65 055300 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
66 055304 7 JSR PC a(SP)+ “REPORT ERROR VIA USER 
| 67 055306 162716 000010 SUB #19, (SP) ‘MOVE SP BACK TO NO ERROR 
68 055312 24 NOP 
| 09 055314 208: 
71 :REPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ‘'SKI'’ = 0 
72 055314 032737 020000 001350 BIT #PIP.RMDSI ;1S DRIVE OFF CYLINDER?? 
73 055322 00143 BEQ $ 
74 055324 032737 040000 001400 BIT #SK1,RMER21 ae “'SKI'' SET?? 
| 75 055332 001024 BNE 30$ -YES=DONT REPORT ‘PIP’’ = 1 
76 055334 013737 001350 001140 MOV RMDSI.$GDDAT  :EXPECTED STATUS 
77 055342 042737 020000 001140 BIC #PIP,$GDDAT 
78 055350 013737 001350 001142 MOV RMDSI,$BDDAT  :RECEIVED STATUS 
79 055356 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR C 
80 055362 112776 000211 000000 MOVB  #211,a(SP) “WRITE ERROR R IN USER'S CALL 
81 055370 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERR 
82 055374 00473 JSR PC-a(SP)+ “REPORT ERROR VIA USER 
83 055376 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 
84 055402 24 NOP 
85 055404 30$: 
87 :SEE IF "'SKI'' = ‘DVC'' = 0 
88 055404 013746 001400 MOV RMER2I.-(SP)  :PUT ERROR REG 2 ON STACK 
89 055410 042726 137577 BIC #*C<SKI'DVC>, (SP) + 
90 055414 001460 BEO 60$ -BRANCH IF NO ERROR 
91 055416 40$: 
93 :REPORT AN ERROR IF THERE IS A DEVICE FAULT 
94 055416 032737 000200 001400 BIT #DVC .RMER2I Y DEVICE FAULT?? 
95 055424 001424 BEQ 50$ NO! 
9% 055426 013737 001400 001140 MOV RMER21,$GDDAT EXPECTED STATUS 
97 055434 042737 000200 001140 BIC #DVC, $GDDAT 
98 055442 013737 001400 001142 MOV RMERE I $BDDAT  ;RECEIVED STATUS 
99 055450 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S C 
100 055454 112776 000212 000000 MOVB #212 a(SP) “WRITE NUMBER © ERROR IN CALL 
101 055462 162716 00000 SUB #2, (SP) “MOVE SP TO «© URN FOR ERROR 
102 0554 736 JSR PC. a(SP)+ “REPORT ERROR V'* USER 
103 055470 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
104 055474 24 NOP 
105 055476 50S: 
107 :REPORT AN ERROR IF ‘'SKI'' = 1 
108 055476 032737 040000 001400 BIT #SKI,RMER21 ;1S THERE A SEEK INCOMPLETE ERROR 
109 055504 001424 BEQ 60$ NO! 
110 055506 013737 001400 001140 MOV RMER21,$GDDAT SPKPECTED STATUS 
111 055514 042737 040000 001140 BIC #SK1,$GDDAT 
112 055522 013737 001400 001142 MOV R21, $BDDAT ;RECEIVED STATUS 
113 055530 062716 000004 ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 
114 055534 112776 000213 000000 MOVB #213) a(SP) “WRITE ERROR NUMBER IN USER'S ERROR CALL 


ee ee ee eee 
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115 055542 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
116 055546 004736 JSR PC’ a(SP)+ “REPORT ERROR VIA USER 

117 055550 162716 000010 SUB #10, (SP) -MOVE SP BACK TO NO ERROR 

118 055554 000240 NOP 

119 955556 60$: 

121 : AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

122 055556 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 

123 055562 105776 600000 TSTB = a SP) “WAS AN ERROR DETECTED?? 

124 055566 001403 BEQ 703 “NO! ! 

125 055570 062716 000004 ADD #4, (SP) :YES = MOVE SP TO USER'S ERROR RETURN 
126 055574 000402 BR 80$ 

127 055576 162716 000004 70$: SUB #4, (SP) :NO - MOVE SP TO NO ERROR RETURN 

128 055602 000240 80$: NOP 

129 055604 000207 TS PC :RETURN TO USER 


eee — 


oe ee 


« 


i 
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-SBTTL SAVE AND RESTORE RO=-RS ROUTINES 


—w_weet-- ASS eeeRR RRR RRRRRRRRRRRRERR RE RE REE RE REE RE RE EERE REE EERE SRE ae 


> *SAVE RO-RS 


3*CALL: 


5@ SAVREG 
:*UPON RETURN FROM $SSAVREG THE STACK WILL LOOK LIKE: 


s 
7 * TOP=---(+16) 
3% +2=---(+18) 


S* 46==-R4 


z* +4---R5 


3% +8---R3 
3*+10---R2 
3**12---R1 
3*+14---R0 


$SAVREG: 


oe 
SRESREG: 


> *RESTORE RO-R5 
>*CALL: 


RESREG 


RO,-(SP) 
R1,-(SP) 


22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 


(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP) +,R2 
(SP)+,R1 
(SP)+,RO 


7 RESTORE 
7 RESTORE 
7 RESTORE 


PC 
PS 
PC 


i STACK 


STACK 
STACK 
STACK 
STACK 
STACK 
MAIN FLOW 
MAIN FLOW 
CALL 

CALL 


OF CALL 


7 RESTORE PS OF MAIN FLOW 
3zPOP STACK INTO R5 


:z;POP STACK INTO R2 
::POP STACK INTO R1 
:zPOP STACK INTO RO 


SEQ 0222 


SS re es 


ee 
~ —_— 





055702 


055754 
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BINARY TO ASCII AND TYPE R 


010146 
0 


000006 
000060 055754 


055754 
055754 


000002 000004 
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-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


J SAAR AAA AAEAAAREARAAEEEAEREEEARAREHAEKR ARERR EERE ee 


SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-8I!7T 
; *BINARY~ASCII NUMBER AND TYPE IT. 


**CALL: 


** 
° 
** 
° 


$TYPBN: 


1$: 


2$: 


$BIN: 


NUMBER , = (SP) 


R1,-(SP) 
6(SP) ,R1 


#°O, $BIN 


(SP)+,R1 
2(SP) ,4(SP) 
(SP) +, (SP) 


0.0 


; NUMBER TO BE TYPED 


sTYPE IT 
:zSAVE _R1 ON THE STACK 
+ GET THE INPUT NUMBER 


;SET “'C’’ SO_CAN KEEP TRACK OF THE NUMBER OF BITS 
SET CHARACTER TO AN ASCII ‘0"’. 

3:GET THIS BIT 

; s DONE ? 


3¢NO--SET THE CHARACTER EQUAL TO THIS BIT 
::G0 TYPE THIS BIT 
;-CLEAR ‘'C’' SO CAN KEEP TRACK OF BITS 
+360 DO THE NEXT BIT 

:POP THE STACK INTO R1 
> ADJUST THE STACK 


:;RETURN TO USER 
:;STORAGE FOR ASCII CHAR. AND TERMINATOR 


SEQ 0225 


055756 


056140 





012601 
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020200 
000020 
000055 
056172 
000040 


056162 


000001 
000060 
000040 


000010 


177777 
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000001 


177777 


177776 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


J STARA RARER AATEAE REAR TERARAEEEEHEREEREEERH ERE Ee 


SSTHIS ROUTINE IS USED TO CHANGE aie 16-BIT BINARY NUMBER TO A 5-DIGIT 


:*SIGNED DECIMAL (ASCII) NUMBER 


AND TYPE IT. DEPENDING ON WHETHER THE 


;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL "BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


*CALL 


$TYPDS: 


1$: 
2s: 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 


9$: 


MOV 
TYPDS 


>*kEPLACED WITH SPACES. 


NUM, = (SP) 


RO,-(SP) 
R1,~(SP) 


R5.=(SP) 
#20200,-(SP) 
20(SP). "RS 
R5 
#*=,1(SP) 
RO 


#$DBLK,R3 
#' ,(R3)+ 


R 
a 


e 


(SP) 

7$ 

(SP) 

6$ 

1(SP) .-1(R3) 
#°O,R2 

#* ,R2 
R2,(R3)+ 
(RO) + 

2$ 

8$ 

R5,R2 

6$ 

(SP) + 

9$ 

~1(SP) ,-2(R3) 
(R3) 
(SP)+,R5 
(SP)+,R3 


(SP)+,R2 
(SP)+,R1 


::PUT THE BINARY NUMBER ON THE STACK 
;:GO TO THE ROUTINE 


3zPUSH RO ON STACK 


E N 
SISET THE FIRST CHARACTER TO A BLANK 
: CLEAR THE BCD NUMBER 

:sGET THE CONSTANT 

Te en BCD DIGIT 


Ss I 
. 33 INCREASE THE BCD DIGIT By 1 


;zADD BACK THE CONSTANT 
te IF BCD DIGIT=0 
L THROUGH IF 0 


: STILL "DOING LEADING 0°S? 
IF YES 


oe IF NO 

>: YES--SET THE SIGN 

:sMAKE THE BCD DIGIT ASCII 

:sMAKE IT A SPACE IF NOT ALREADY A a6 


IT 
3zPUT THIS CHARACTER IN THE OUTPUT BUFFER 


ee CK THE TABLE INDEX 
::G0 DO sy NEXT DIGIT 
::G0 TO EXIT 
2 GET THE LS 
ee O CHANGE TO ASCII 
WAS —_ THE FIRST NON-ZERO? 


"BR IF 
SC YES=<SET THE oy FOR TYPING 
3: SET THE TERMINATOR 

3zPOP STACK INTO RS 

3zPOP STACK INTO R3 

:zPOP STACK INTO R2 

:;POP STACK INTO R1 


SEQ 0224 


ee = = 


056142 


056172 


TO D 
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CONVERT BINARY 


056172 
000002 


MACRO rae 4-APR-B] 


ECIMAL AND TYPE ROUTI 


00004 


$DTAL: 


$DBLK: 


.BLKW 


E 
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(SP)+,RO 


SDALK 
2(SP) .4(SP) 
(SP)+, (SP) 


4 


3zPOP STACK INTO RO 
iNOW TYPE THE NUMBER 
s;ADJUST THE STACK 


77RETURN TO USER 


SEQ 0225 


cm 
CZRMNBO RMO5/3/2 FCTNL eum 2 MACRO VO4.00 4-APR-81 11:45:53 PAGE 40 
BINARY TO OCTAL (ASCII) AND TYPE SEQ 0226 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


RAAT RATER AAA ATTRA ATER TA AT RTR ATER REE R TARE Ree ERE 
“STHIS ROUTINE IS USED TO CHANGE A 16-B81T BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 
: *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


>*CALL: 

s¢ MOV NUM, = (SP) 7 NUMBER TO BE TYPED 

:* TYPOS 7; CALL FOR TYPEOUT 

:* -BYTE N izN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
s@ -BYTE mM 7 :M=1 OR O 

;* 321=TYPE LEADING ZEROS 

s% 3;0=SUPPRESS LEADING ZEROS 


: *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
= *$TYPOS OR $TYPOC 


:*CALL: 

* MOV NUM, ~ (SP) ; NUMBER TO BE TYPED 

:* T YPON :; CALL FOR TYPEOUT 

** 

ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 

7 *CALL: 

:* MOV NUM, = (SP) : NUMBER TO BE TYPED 

:* TYPOC 3;;CALL FOR TYPEQOUT 
056202 017646 000000 $TYPOS: MOV @a(SP) ,-(SP) ef Sg THE MODE 
056206 116637 000001 056425 MOVB 1(SP) ,SOF ILL LOAD ZERO FILL SWITCH 
056214 112637 056427 | MOVB (SP)+,S$OMODE+1 ; : NUMBER OF DIGITS TO TYPE 
056220 062716 000002 ADD #2, (SP) > : ADJUST RETURN ADDRESS 
056224 0900406 BR $TYPON 
056226 112737 000001 056425 $TYPOC: MOVB #1,S$0F ILL 77SET THE ZERO FILL SWITCH 
056234 112737 000006 056427 MOVB #6, S0MODE +1 32SET FOR SIX(6) DIGITS 
056242 112737 000005 056424 $TYPON: MOVB #5,S0CNT 7zSET THE ITERATION COUNT 
056250 01 6 MOV R3,-(SP) os R3 
056252 010446 MOV R4,-(SP) 77 SAVE RSG 
056254 010546 MOV R5,-(SP) 7; SAVE R5 
056256 113704 056427 MOVB SOMODE +1,R4 3;GET THE NUMBER OF DIGITS TO TYPE ,; 
056262 005404 NEG R4 
056264 062704 000006 ADD *% RG ;; SUBTRACT IT FOR MAX. ALLOWED 
056270 110437 056426 MOVB 4, S0MOCE >; SAVE IT FOR USE 
056274 113704 056425 MOVB sOfILT R4 :7GET THE ZERO FILL SWITCH 
C56300 016605 000012 MOV 12\SP), "RS 73PICKUP THE INPUT NUMBER 
056304 005003 CLR R3 :: CLEAR THE OUTPUT WORD 

6306 006105 1$: ROL R5 : sROTATE MSB INTO ‘‘C’’ 

056310 000404 BR 3$ :GO DO MSB 
056312 006105 2$: ROL R5 : = FORM THIS DIGIT 
056314 006105 ROL bs 
056316 006105 ROL 
056320 010503 MOV R5,R3 
056322 006103 3$: ROL R3 ::GET LSB OF ys tJ DIGIT 
056324 105337 056426 DECB SOMODE : 3 TYPE THIS DIGIT 
056330 100016 BPL 7$ ;BR IF NO 
056332 042703 177770 BIC #177770,R3 *:GET a: OF JUNK 
056336 001002 BNE 4$ :: TEST FOR 0 
056340 005704 TST R4 3; SUPPRESS THIS Q? 
056342 001403 BEQ S$ I 


BR IF YES 
056344 005204 4$: INC — RG DON'T SUPPRESS ANYMORE 0"S ; 


——— _ 


EE SS SSS SS —E 
SS es esesssstessssttisnssisssesstenesesnen: 
ee -— 
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BINARY TO OCTAL (ASCII) AND TYPE 


056346 052703 000060 BIS #'°0,R3 ZiMAKE THIS DIGIT ASCII 
056352 052703 000040 S$: BIS #" OR ::MAKE ASCII IF NOT ALREADY 
056356 110337 056422 MOVB _R3. BS =:SAVE FOR TYPING 

056362 104401 056422 TYPE 8 *:GO TYPE THIS DIGIT 

056366 105337 056424 7$: DECB  =$0CNT i: COUNT BY 

056372 003347 BGT 2$ ;:BR IF MORE TO DO 

056374 002402 BLT 6$ IF DONE 

056376 005204 INC RG «INSURE LAST DIGIT ISN'T A BLANK 
056400 000744 BR 2$ ::GO DO THE LAST DIGIT 

056402 012605 63: MOV (S?)+,R5 = =RESTORE RS 

056404 012604 MOV (SP) +_RG > =RESTORE R4 

056406 012603 MOV (SP)+,R3 : ;RESTORE R3 

056410 016666 000002 000004 MOV 2(SP) .4(SP) -:SET THE STACK FOR RETURNING 
056416 012616 MOV (SP) +. (SP) 

056420 000002 RT] : RETURN 

056422 000 8$: BYTE 0 : STORAGE FOR ASCII DIGIT 
056423 000 BYTE 0 >; TERMINATOR FOR TYPE ROUTINE 
056424 000 SOCNT: .BYTE 0 ::0CTAL DIGIT COUNTER 

056425 000 SOF ILL: .BYTE 0 3; ZERO FILL SWITCH 

656426 000000 SOMODE: .WORD 0 ::NUMBER OF DIGITS TO TYPE 


—_— —— _ - —_—_—_——— ee ee 
~ —— Le SS se rhs tgs hems stam oe 


- 


2 MNES 


ype 


——— ee 


wi ‘ 


RMOS/3/2 ECTNL 


NE 


056572 
056576 
0 


105737 
100002 
000000 


013746 
105366 
002770 
004737 
105337 
000770 





7 “4 
ee 4 


< 


001173 


000002 
000001 


000100 


056500 
063106 


000040 


000002 
000011 
000200 


056760 


056642 
001172 


001170 
000001 


056642 
056760 
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001242 
001243 


001243 


- SBITL 


> *NOTE1: 


: *NOTE2: 
; *NOTE 3: 


OR 


61$: 
62$: 
2$: 


60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


TYPE ROUTINE 


PAAR AAAAAAATAAARARETARAATAAARAHAREARRHERAHRHKREKRRR ATER 


® ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


TYPE 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER, 


*CALL 
*1) USING A TRAP — 


»MESA 


$STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
ee 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
ome 


7" lataealaaaaal 
(RO) +,-(SP) 

4$ 

(SP)+ 

(SP)+,RO 

#2, (SP) 

hag 
ACRLF , (SP) 

S$ 


(SP) + 
S$CHARCNT 

2$ 

PC ,STYPEC 
SFILLC,(SP)+ 
2$ 
SNULL ,- (SP) 


1 (SP) 
$ 


6 
PC ,$TYPEC 
$CHARCNT 
7$ 


;sMESADR. IS FiRST ADDRESS OF AN ASCIZ STRING 


3218 THERE A TERMINAL? 
i IF YES 
Ai ena IF NO TERMINAL 


37 SAVE RO 

3;GET ADDRESS OF ASCIZ STRING 
3 RUNNING IN APT MODE 

:zNO,GO CHECK FOR APT CONSOLE 
; ; SPOOL MESSAGE TO APT 


GO OLE 
+: SETUP MESSAGE ADDRESS FOR APT 
+ + SPOOL MESSAGE TO APT 
s;MESSAGE ADDRESS 
> APT CONSOLE SUPPRESSED 
77; YES,SKIP TYPE OUT 
7zPUSH CHARACTER TO BE TYPED ONTO STACK 
3;BR IF IT ISN'T THE TERMINATOR 
321F TERMINATOR POP IT OFF THE STACK 
: sRESTORE RO 
: sADJUST RETURN PC 
TURN 


7 BRANCH IF <HT> 
> BRANCH IF NOT <CRLF> 


:;POP <CR><LF> EQUIV 
73 TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 

;:GET NEXT CHARACTER 

::GO TYPE THIS CHARACTER 

eI IT TIME FOR FILLER CHARS.? 
T CHAR. 


NE 

::GET # OF FILLER CHARS. NEEDED 
:sAND THE NULL CHAR, 
cS A NULL NEED TO BE TYPED? 
F NO=--GO POP THE NULL OFF OF STACK 
: #60 TYPE A NULL 

te Fl COUNT AS A COUNT 
iL 


3B 


SEQ 0228 


C7RMNBO RMOS/3/2 FCTNL 
TYPE ROUTINE 


Eo — 


056762 


005726 


TST 2 


000040 
056642 
000007 


122312 


122306 
177600 


000023 


122266 
122262 
177600 
000021 


122244 


000002 
000015 


056760 
000012 
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056760 


122236 
000002 


000002 


:HORIZONTAL TAB PROCESSOR 


8$: 
9$: 


STYPEC: 


101$: 


102$: 
10$: 


1$: 


] 
$CHARCNT: 


CB 
. WORD 


$TYPEX: RIS 


a TS tt Sienna tent e en 


e* 

PC ,STYPEC 
#7, $CHARCNT 
9$ 


(SP) + 
2$ 


asks 
10$ 
a$TKB,-(SP) 
#177600, (SP) 
#SXOFF, (SP) 
102$ 
a$TKS 
101$ 
a$TKB, (SP) 
#177600, (SP) 
#$XON, (SP) 
101$ 
(SP) + 
asTPs 
10 


$ 
2(SP) ,aSTPB 
+ aad 


$ 

ALF, PS tsP) 
$1 YPEX 
(PC)+ 


PC 


© 


{:REPLACE TAB WITH SPACE 
ii TYPE A SPACE 
;:BRANCH IF NOT AT 

:;TAB STOP 


>:POP SPACE OFF STACK 
«GET NEXT CHARACTER 


20 TF. No IN ia BUF FER? 


:GET CHAR 
2 STRIP he ea BITS 
;sWAS CHAR XOFF 
;:BR IF NOT 


;z;WAIT FOR CHAR 


:;GET CHAR 
:: STRIP IT 
7zWAS IT KON? 
;;BR IF NOT 


ssFIX STACK 
;;WAIT UNTIL PRINTER IS READY 


:;LOAD CHAR TO BE TYPED INTO DATA REG. 
21S ages Py A CARRIAGE RETURN? 


H IF NO 
:SYES-=CLEAR CHARACTER COUNT 
*:1S CHARACTER A LINE FEED? 
::BRANCH IF YES 

== COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 


SEQ 0229 


“7RMNBO RMOS/3/2 FCINL TST 2 
SCOPE HANDLER ROUTINE 


ra ee re 
ep NN seen 


056764 
05, 
056766 
056772 
057000 
657002 
057006 
057006 


057010 


104410 


000416 


057532 
040000 


057432 


000004 
057034 
177060 
000004 
000004 
000400 


122072 
0000351 
001116 
057450 
001122 
001117 
177777 
000004 
057156 
177766 


177777 
057172 
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122154 


000004 


122102 


060150 


000004 
060150 


060150 


-SBTTL SCOPE HANDLER ROUTINE 


° FTAA EEAAAEAEAE AREER RTRAEEAEEEEHEEKRHE RHEE 


:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH ate PROVIDED BY THIS ROUTINE ARE: 


OOP ON TEST 
INHIBIT ITERATIONS 


:*SW14=1 


9$: 
:MARAASTART OF vy FOR THE XOR 


$xTSTR: BR 


5$: CMP 


8$: TST 
2$: TSTB 


2000$: 





LOOP ON ER 


ROR 
LOOP ON TEST IN SWR<7:0> 
;;SCOPE=10T 


PC STOP 
#B1T14,aSWR 
9$ 


SOVER 


@#ERRVEC,-(SP) 
#5$, a#ERRVEC 
a4#177060 
(SP) +, AMERRVEC 
SSVLAD 
(SP) +, (SP)+ 
(SP)+, ° AFERRVEC 


3zTEST FOR CHANGE IN SOF T-SWR 


+s LOOP ON PRESENT TEST? 
;NO IF SW14=0 
; 2 JUMP OVER SCOPE ROUTINE 


TESTERFHAAA 
;2.1F RUNNING ON THE ‘‘KOR'’ TESTER CHANGE 
:zTHIS INSTRUCTION TO A ‘'NOP*’ (NOP=240) 
>sSAVE THE CONTENTS OF THE ERROR VECTOR 
23 SET FOR TIMEOUT 
ME OUT ON XOR? 
: :RESTORE THE ERROR _ 
:GO TO THE NEXT TEST 
;CLEAR THE STACK AFTER A TIME OUT 
: RESTORE THE ERROR VECTOR 
ON THE PRESENT TEST 


CODE ae = xOR™ TESTERAAMAR 


#81T08.a 
2$ 


~(SP) 
@SWR, (SP) 


#31, (SP) 

8$ 

(SP) ,STSTNM 
(SP) 


(SP) 
ASSWOBTBL , (SP) 
@(SP)+,$LPADR 
SOVER 


#-1,CPSAVE 
2003$ 


ERRVEC ,-(SP) 
#2000$ ,ERRVEC 
men 


#-1,CPSAVE 
#2001$, (SP) 


:zLOOP ON SPEC. TEST? 
IF NO 


SICLEAR A_TEMP. LOCATION 
:sPICKUP THE DESIRED TEST NUMBER 
;;BRANCH IF BAD TEST NUMBER IN SWR 
+ ¢ CHECK THE NUMBER IN THE SWR 

:BRANCH IF TEST NUMBER IS OUT OF RANGE 
; ;UPDATE THE TEST NUMBER 


ary BY 
ey THE TEST NUMBER AS AN INDEX 
;sFORM THE ADDRESS OF TEST POINTER 
‘ca LOOP ADDRESS TO DESIRED TEST 
O LOOP ON THE TEST 
SICLEAN THE BAD TEST NUMBER OFF OF THE STACK 
+ sHAS AN ERROR OCCURRED? 


:BR_IF NO 

77 SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
KICK AROUND ROUTINE IF SO 

SAVE CONTENTS OF ERROR VECTOR 

7;SETUP ‘TRAP’ RETURN ADDRESS 

::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


;:SET CPU ERROR REGISTER TIMEOUT INDICATOR 
3; SETUP RETURN ADDRESS 


SEQ 0250 


—_— Se 


———_——-— 


057170 
057172 


057176 
04 


057450 
057450 


057472 


CZ7RMNBO RMO5/3/2 FCTNL 
SCOPE HANDLER ROUTINE 


000002 
012637 
022737 
001430 


012637 
123737 


00 
270 


ole lel ele] eo] @] e] e) @) 
ee ee et ae os oe os = 
Ons Wit——© 


3 


TST 2 


G00004 
177777 
000001 


000001 
001154 
000000 
000176 
121706 
001000 
000000 
001154 
001131 
0061000 
001124 


001117 
001206 


004000 


K 
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060150 
060150 
177766 


001154 
121700 


001117 
121650 
001122 


121616 


2001$: 
2002$: 


20038: 


7$: MOV 
4$: CLRB 


3$: BIT 


1$: MOV 
SSVLAD: 


SOVER: 


RT 
SMXCNT: 5. 
$SWO8TBL : 
-REPT $TN-1 


(SP) +, ERRVEC 
#=-1 CPSAVE 
#31100, ,CPSAVE 
#B1T00, 177766 
SWR,-(SP) 
a(SP) ,-(SP) 
#176, SWR 

(SP) -aSWR 
#31109, aSWR 


(SP) +,a(SP) 
(SP) +, SWR 


thee 
oC 
$LPERR,$LPADR 
SOVER 


SERFLG 
$TIMES 
1$ 


#81T11,aSWR 
1$ 


$PASS 

1$ 

$ICNT 

STIMES .SICNT 
SOVER 

#1 ,SICNT 

SMXCNT »STIMES 


TNM 
STSTNM,STESTN 
(SP) , $LPADR 
(SP) ,SLPERR 
SESCAPE 


#1 , SERMAX 


STSTNM,a@DISPLAY 
SLPADR, (SP) 


TST1+2 


;sRESTORE CONTENTS OF ERROR VECTOR 
:3SEE ‘ ip an HAS CPU ERR REG TIMEOUT INDICATION 


; BRAN 
:;SEE IF THE POWER MONITOR BIT IS ON 
;sBRANCH TO CONTINUE ROUTINE IF CLEAR 
7:CLEAR THE BIT ” ad TO BE SET 


Hh oy SWR UE 
3;GET SOFTWARE SWR ADDRESS 
:3GET CURRENT SWR VALUE 

;DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
7: CALL SPECIAL POWER FAIL BIT ERROR CALL 
7 RESTORE SWR TO ORIGINAL VALUE 
7 RESTORE SWR ADDRESS 


:sMAX. ERRORS FOR THIS TEST OCCURRED? 
:BR IF NO 

; LOOP ON ERROR? 
:BR_IF NO 

:;SET LOOP ADDRESS TO LAST SCOPE 


+ ZERO THE ERROR FLAG 
>CLEAR THE NUMBER OF a TO MAKE 
:ZESCAPE TO THE NEXT TEST 
2 INHIBIT ITERATIONS? 
73BR IF YES 
2eiF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
: INCREMENT ITERATION COUNT 
: CHECK THE NUMBER OF ITERATIONS MADE 
IF MORE ITERATION REQUIRED 
: TRE INITIALIZE THE ITERATION COUNTER 
ee NUMBER OF ITERATIONS TO DO 
+ COUNT TEST NUMBERS 
:SET TEST NUMBER IN APT MAILBOX 
;7SAVE SCOPE LOOP ADDRESS 
;;SAVE ERROR LOOP ADDRESS 
= CLEAR THE ESCAPE FROM ERROR ADDRESS 
sONLY ALLOW ONE(7) ERROR ON NEXT TEST 
[DISPLAY TEST NUMBER 
:2FUDGE RETURN ADDRESS 
oo PS 
:3MAX. NUMBER OF ITERATIONS 


;sSTARTING ADDRESS OF ! 
:sSTARTING ADDRESS OF 
:sSTARTING ADDRESS OF 


“~ 
rm 
Ww 
~4 
YOR UNE 


mo 


SEQ 0231 


_ CZRMNBO RMOS5S/3/2 FCTINL TST 2 
SCOPE HANDLER ROUTINE 


WM wr 


ONO 


10 


057474 
057476 


057526 
057530 


057532 
057532 


057536 
057542 
057544 
057544 


0 
057556 


017472 


746 
746 
02 


Oooo 
—-b 
Say 


012746 
012746 
000002 


000207 


009140 
057544 


000240 
057556 


L 
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«WORD TST13+2 3¢STARTING ADDRESS OF TEST 
-WORD TST14+#2 :sSTARTING ADDRESS OF TEST 
«WORD TST15+¢2 3sSTARTING ADDRESS OF TEST 
«WORD ITST16+2 7sSTARTING ADDRESS OF TEST 
-WORD TST17+#2 ;3STARTING ADDRESS OF TEST 
«WORD TST20+2 :zSTARTING ADDRESS OF TEST 
«WORD TST21+2 3sSTARTING ADDRESS OF TEST 
«WORD ITST22+2 3:STARTING ADDRESS OF TEST 
-WORD TST23+2 ;sSTARTING ADDRESS OF TEST 
«WORD TS724+2 :zSTARTING ADDRESS OF TEST 
«WORD TST25+2 ;sSTARTING ADDRESS OF TEST 
«WORD TST26+2 ;sSTARTING ADDRESS OF 

-WORD TST27+2 ;sSTARTING ADDRESS OF 

-WORD TST30+2 ;sSTARTING ADDRESS OF 

-WORD TST31+#2 ;sSTARTING ADDRESS OF 


:DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 


STOP: 
MOV #PR3,-(SP) 7;zPUT NEW PS ON STACK 
MOV #64$,-(SP) 3;zPUT NEW PC ON’ STACK 
_ RTI 7;zPOP NEW PC AND PS 


:RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 
MOV APRS ,-(SP) ::PUT NEW PS ON STACK 
MOV #65$,-(SP) >:PUT NEW PC ON STACK 
RT] ::POP NEW PC AND PS 


RTS PC RETURN 


65$: 


stem _ ee 


MMM 
per ge ee Pg Ne NOU EW 


SEQ 92 b Fi 


CZRMNBO RMOS/3/2 FCINL TST 2 


T 


057560 


| ERROR HANDLER ROUTINE 


yy oA 


000002 
012637 
022737 


105037 
032777 
001004 
004737 


060152 
001117 


001116 
002000 


177777 
000004 
057722 
177766 


177777 
057736 


000004 
177777 
000001 
001130 
090177 
060152 
020000 
060154 


w 
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354 
344 


ee 
MM 
aud ancl 


001132 
001130 
121304 


001130 


060150 
000004 
060150 
060150 


060150 
060150 
177766 


060152 
001130 


121134 


-SBTTL ERROR HANDLER ROUTINE 


MARRAAAARASRSAARASRASAASRARARRR SR RR RR RARER RE RE RRR ER RE RES E REE RRR ERR ESR SE 


:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


:*SAVE THE ERROR ITEM 


:*AND GO TO,ERRTYP ON ERROR 
; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


1$: 


1000$ : 


1001$: 
1002$: 


1003$: 
1004$: 


HALT ON 


BELL ON ERR 
LOOP ON ERROR 


N 7 ERROR= 


IBSAVE 

SERFLG 

7$ 
$STSTNM,@DISPLAY 
oo 

, SBELL 

SERTTL 
(SP) , SERRPC 


1004$ 
#177, $1TEMB 
1004$ 
IBSAVE 


1003$ 
#-1 , CPSAVE 
1004 


177766, CPSAVE 
1001$ 


#~1 ,CPSAVE 
#1001$, (SP) 


(SP) +, ERRVEC 
#-1, CPSAVE 
1004$ 

#81100, CPSAVE 
1004$ 
#81T00,177766 
$1TEMB, IBSAVE 
#177.$1TEMB 
1004$ 

IBSAVE 
#B1113,9SWR 


PC,ERRTYP 





R AND THE ADDRESS OF THE ERROR CALL 


ERROR 
INAIBIT pa TYPEOUTS 


EMT AND N=ERROR ITEM NUMBER 


a ce THE ITEM BYTE or LOCATION 
:;TEST FOR CHANGE IN SOF T-SwR . 
éeSET THE ERROR FLAG 
;DON*T LET THE FLAG GO TO ZERO 
::DISPLAY TEST NUMBER AND ERROR FLAG 
+ BEL L — 


: TRING BELL 
:COUNT THE NUMBER OF ERRORS 
::GET ADDRESS OF ERROR INSTRUCTION 


:zSTRIP AND SAVE THE ERROR ITEM CODE 
73 SEE IF LOOP ON ERROR IS SET 
CH AROUND ROUTINE IF SO 
73 SEE IF THIS IS THE POWER FAIL CALL 
CH AROUND ROUTINE IF IT IS 
:3 SEE IF > ae IS THE 2ND ERROR CALL IN THIS ROUTINE 


CH IF SO 

33588 IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
;BRANCH IF SO 

i: SAVE CONTENTS OF ERROR VECTOR 

7;SETUP *TRAP* RETURN ADDRESS 

>sMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


:sSET CPU ERROR REGISTER TIMEOUT INDICATOR 
;sSETUP RETURN ADDRESS 


*;RESTORE CONTENTS OF ERROR VECTOR 
73 SEE 4 lp an HAS CPU ERR REG TIMEQUT INDICATION 
: 3 SEE ¥ Ye MONITOR BIT IS SET IN CPU ERR REG 
73 CLEAR THE BIT FOUND SET 

sMAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
::SET SITEMB TO SPECIAL POWER FAIL POINTER 
;;BRANCH OVER IBSAVE CLEARING 
;;CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
;sSKIP TYPEOUT IF SET 


::SKIP TYPEOUTS 
;;GO TO USER ERROR ROUTINE 


ee re ee ee ee ee 


TT ‘ne 
, 


-_ re ee 


— CZ7RMNBO RM05/3/2 FCTNL 
~ ERROR HANDLER ROUTINE 


104401 
122737 
001007 
113737 
004737 
000 
000 
000777 
105737 
001005 
005777 
100002 
000000 
104410 


032777 


013716 
022737 
001001 
000000 


105737 


001210 — 


TST 2 


001217 
000001 


001130 
063116 


060152 
121062 


001000 


001124 
001210 


001210 
032122 


060152 


N 
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001242 
060054 


121046 


000042 


208: 


21$: 
223: 
2$: 
3$: 


4$: 


5$: 


6$: 


CPSAVE : 
IBSAVE: 


TYPE 


BNE 
RTI 
. WORD 
. WORD 


- SCRLF 
MAPTENV,SENV 


SITEMB,21$ 
—- 


een 
$LPERR, (SP) 
$ESCAPE 

5$ 
SESCAPE , (SP) 
ASENDAD , aM42 
6$ 


IBSAVE 
7$ 


0 
0 


:7RUNNING IN APT MODE , 

;3NO,SKIP APT ee <EPORT 

:7SET ITEM NUMBER A . fas oo 
; REPORT FATAL ERROR TO AP 


T ERROR LOOP 
1 SEE IF IBSAVE IS LOADED 
; BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 
; HALT ON ERROR 
is IF CONTINUE 
sHALT ON ERROR! 
;TEST FOR CHANGE IN SOF T-SWR 


4008 08 ERROR SWITCH SET? 


oe NO 
FUDGE RETURN FOR LOOPING 
;; CHECK FOR AN ESCAPE ADDRESS 


;2BR IF NONE 
;zFUDGE RETURN ADDRESS FOR ESCAPE 


;sACT-11 AUTO-ACCEPT? 
; BRANCH IF NO 
7. YES 


;zSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
ie BACK TO CALL ORIGINAL ERROR 
sLOCATION TO SAVE CPU ERROR REG CONTENTS 
;LOCATION TO SAVE ITEM BYTE 


SEQ 0254 


CZ7RMNBO RMOS/3/2 FCTINL TST 2 
ERROR TYPEQUT ROUTINE 


43 

44 060302 
45 306 
46 060314 


27 
48 060330 


49 060334 


013746 
104403 


012737 
022700 
001405 


012737 
022700 
004 


013746 
104403 
003 


000 
005037 
113737 


061022 
001130 


B 3 
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120770 


060300 
0603500 
060300 


061020 


061022 





-SBTTL ERROR TYPEOUT ROUTINE 


;*THE ERROR TYPEOQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
¢ *REGARD ING THE DETECTION OF AN ERROR AS FOLLOWS: 


UNIT NUMBER, DRIVE TYPE, 
: sPROGRAM COUNTER ARE PRINTED ON THE FIRST 
~ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON 
: ONE OR sy SUCCEEDING LINES; 
ED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 


PAIR 
"SAF TER THE ERROR MESSAGE. 


ERRTYP: SAVREG 
BIT 


#SW13,aSWR 
BEQ 1$ 
IMP 27$ 
: TYPE UNIT NUMBER, DRIVE TYPE, 
=PROGRAM COUNTER 
i$: TYPE  ,$CRLF 
TYPE  ERTYOO 
MOV $UNIT,-(SP) 
TYPOS 
-BYTE 3 
‘BYTE 0 
MOV $BASE ,RO 
MOV RMDT (RO) .RO 
BIC #177740,RO 
MOV ASRMO3, 3$ 
CMP #24 RO 
BEQ 2$ 
MOV #SRMO2, 3S 
C #25.RO 
BEO 2$ 
MOV #$RMOS , 3$ 
CMP #27.RO 
BNE 4$ 
2$: TYPE  ,ERTYOS 
TYPE 
3$: .WORD 0 
V STESTN, TSTNMB 
TYPE SERTYO1 
MOV TSTNMB,-(SP) 
TYPOS 
.BYTE 3 
“BYTE O 
CLR ERRNMB 
MOVB $I TEMB,ERRNMB 


TEST afte. NUMBER AND 


: INHIBIT TYPEQUTS?? 
“NO! ! 


YES! ! 


TEST NUMBER, ERROR NUMBER, AND 


; TYPE ‘DRVA’’ 


7: SAVE SUNIT FOR TYPEOUT 
si TYPE DRIVE 
3:GO TYPE=-OCTAL ASCII 
sz TYPE 3 DIGIT(S) 

:; SUPPRESS LEADING ZEROS 


sTYPE ‘DRIVE TYPE’ RMOS, RMO3S OR RMO2 mi. UNIT UNDER TEST 
;GET RM BASE ADDRESS 

;GET DRIVE TYPE REGISTER 

;SAVE DRIVE TYPE BITS AND 

GET ASCII DRIVE TYPE 

Se 3 ta AN RMO3 ? 


sSAVE ASCII DRIVE TYPE 
‘aout AN RMO2 ? 


sSAVE ASCII DRIVE TYPE 
ee DEVICE AN RMO5 ? 


:T 
“TYPE DRIVE TYPE 
“DRIVE TYPE MESSAGE IS STORED HERE 


sTYPE TEST ne ERROR NUMBER AND PROGRAM COUNTER 
4$: CLR TSTNMB ;LOAD TEST NUMBER FOR 


TYPE '‘TSTA"' 


:;SAVE TSTNMB FOR TYPEOUT 
:; TYPE TEST NUMBER 

;;GO TYPE--OCTAL ASCII 
;eTYPE 3 DIGIT(S) 

>; SUPPRESS LEADING ZEROS 
;LOAD ERROR NUMBER FOR 


> TYPEQUT 


rt 


NUMBER 


SEQ 0235 


ee ee eee on = 


CZ7RMNBO RMOS/3/2 FCTNL 
ERROR TYPEOUT ROUTINE 


060342 


50 
51 060344 
52 060350 


013746 
104403 

003 

000 
104401 
013746 
104403 


TST 2 


001572 


. 3 
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061027 


5$: 


7$: 


8$: 


9$: 


11$: 


12$: 


13$: 


14$: 





BEQ 
TYPE 
MOV 


TYPOS 
-BYTE 
-BYTE 
TYPE 
MOV 


TYPOS 


-BYTE 
-BYTE 


BEQ 


S$ 

,ERTYO2? 
ERRNMB ,-(SP) 
3 

0 

~ERTYO3 
SERRPC ,-(SP) 


] 


27$ 


8$ 
#PFECH,RO 
9$ 


RO 
RO 


RO 
#SERRTB-8. .RO 
(RO) ,R1 


19$ 


ME SSAGE 
(R1)+,R2 
19$ 
R2,18$ 
BOTADR 
(R2)+,R3 
17$ 


Cat 


] 
CHRCNT 
47 ,CHRCNT 


13$ 


;SKIP IF NO ERROR CALLED 
; TYPE ‘‘ERRA’ 
73SA VE ERRNMB FOR TYPEOUT 
3 Tyre ERROR NUMBER 
a ormines ASCII 

>: TYPE 3 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 
: TYPE 'PC=" 

7:SAVE SERRPC FOR TYPEQUT 
3: TYPE PROGRAM COUNTER 
3:60 ere Pe, ASCII 

si TYPE 6 DIGIT(S) 

iz TYPE LEADING ZEROS 


| a, ae TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
6$: ERRNMB 


WAS AN ERROR CALLED? 
‘BR IF YES 
sNO--EXIT 


;YES-TYPE CRLF 


7SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
:BRANCH IF NO 
:MOVE POWER FAIL ERROR CALL TABLE TO RO 


:FOUR ENTRIES IN ERROR 
TABLE 


:ft1 POINTS TO ERROR MESSAGE 
“BRANCH IF NO ERROR MESSAGE 


;R2=ADDRESS OF MESSAGE STRING 
;BRANCH IF END OF MESSAGE 
‘LOAD ADDRESS OF STRING 

f{ EAR BOT ADDRESS 
ZEND ¢ OF STRING?? 


: CARRIAGE RETURN? ? 
:NO!! 


:YES-CLEAR CHAR COUNT 
;GET NEXT CHARACTER 
sLINE FEED?? 

7 YES-GET NEXT CHARACTER 
;HORIZONTAL TAB?? 


“ADJUST CHARACTER COUNT 


oe ry os iad CHARACTER COUNi 
: SPAC CET? 


—— ee ee -_—-» ——s -« ee Se 


SEQ 


la 
~ & 


36 
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INL TST 2 MACRO VO04.00 4-APR-81 11:43:33 PAGE 44-2 


CZRMNBO RMO5/3/2 
NE SEQ 0237 
3 


ERROR TYPEOUT ROU 
0 


99 060560 237 061024 MOV R2,BOTADR ;SAVE ADDRESS OF SPACE 
100 060564 122737 600100 061027 15$:  CMPB #64.,CHRCNT ZEND OF LINE?? 
101 060572 103340 BHIS 11$ :NO!! 
102 060574 013704 061024 MOV BOTADR ,R4 :GET ADDRESS OF LAST SPACE 
103 001007 BNE 16$ “BRANCH IF SPACE DETECTED 
104 060602 104401 001217 TYPE  ,$CRLF :TYPE CRLF 
105 060606 105037 061027 CLRB CHRCNT ;CLEAR CHARACTER COUNT 
106 060612 013702 060632 MOV 18$,R2 :SET UP R2 FOR TESTING 
107 060616 000726 BR 11$ 
108 060620 105u44 16$: CLRB (4) ;REPLACE SPACE 
109 060622 112737 177777 061026 MOVB #=1,BOTFLG :SET BOT FLAG 
110 060630 104401 17$: ‘TYPE ; TYPE ERROR MESSAGE STRING 
111 060632 000000 18$: .WORD ;STRING ADDRESS GOES HERE 
112 060634 105737 061026 TSTB. = BOTFLG [WAS STRING TRUNCATED?? 
113 060640 001707 BEQ 10$ :NO!! 
114 060642 104401 001217 TYPE  ,$CRLF :YES=TYPE CRLF 
115 060646 105037 061026 CLRB =—- BOTFLG :CLEAR BOT FLAG 
116 060652 105037 061027 CLRB = CHRCNT =CLEAR CHARACTER COUNT 
117 060656 013702 061024 MOV BOTADR ,R2 :SETUP R2 FOR TESTING 
118 060662 010237 060632 MOV R2,18$ :SETUP 18$ FOR TYPING 
119 060666 112742 000040 MOVB #' ,=(R2) ;RESTORE SPACE 
120 060672 105722 TSTB —s (R2)+ :RESTORE R2 
121 060674 000677 BR 11$ :TYPE REST OF STRING 
123 ; TYPE ERROR HEADER AND ERROR DATA 
124 060676 016001 000002 19$: MOV 2(RO) ,R1 ;R1 POINTS TO ERROR HEADER TABLE 
125 060702 001444 BEQ 27$ ;BRANCH IF NO HEADER 
126 060704 104401 001217 TYPE  ,$CRLF ; (ASSUME NO DATA) 
127 060710 016002 000004 MOV 4(RO) .R2 :R2 POINTS TO DATA ADDRESS TABLE 
128 060714 016003 MOV 6(RO) .R3 :R3 POINTS TO FORMAT TABLE 
129 060720 012137 060730 20$: MOV (R1)+,21$ :PUT HEADER ADDRESS FOR TYPE 
130 060724 001433 BEQ 27$ ;BRANCH IF END OF HEADERS 
131 ; (ASSUME END OF DATA) ' 
132 060726 104401 TYPE 
133 060730 000000 21$:  .WORD 0 ;HEADER ADDRESS GOES HERE 
134 060732 104401 001217 TYPE ,$CRLF 
135 060736 005702 TST R2 :DATA WITH HEADER?? 
136 060740 001767 . BEQ 20$ NO! ! 
137 060742 012204 MOV (R2)+,R4 :R4 POINTS TO DATA ADDRESS 
138 060744 012305 MOV (R3)+,R5 :RS POINTS TO FORMAT 
139 060746 105725 22$: STB  (R5)+ :WHAT KIND OF DATA?? 
140 060750 100407 BM! 24$ sBINARY 
141 060752 001403 BEO 23$ SOCTAL 
142 060754 013446 MOV Q(R4)+,-(SP) |: DECIMAL 
143 060756 104405 TYPDS 
144 060 000405 BR 25% 
145 060762 013446 23$: MOV a(R4)+,-(SP) 
146 060764 104402 TYPOC 
147 060766 000402 BR 25$ 
148 060770 013446 24$: MOV a(R4)+,-(SP) 
149 060772 104406 TYPBN 
150 060774 005714 25$: TST (R4) ;MORE DATA?? 
151 060776 001403 | BEQ 26$ NO!! 
152 061000 104401 061062 TYPE ERTYO4 sYES-TYPE 2 SPACES 
153 061004 00076 BR 2$ 3AND CONTINUE 
154 061006 104401 001217 26$: TYPE  ,$CRLF : TYPE ONE BLANK LINE 
155 061012 000742 BR 20$ “BEFORE NEXT HEADER 





—_—— —_——— = ee ew - 


oe ew ee 


_— ee ee 


156 061014 
1016 


157 046 

158 

159 061020 
160 061022 
161 061024 
162 061026 
163 061027 
164 

165 061030 
166 061035 
167 061045 
168 061054 
169 061062 
170 061065 
171 

172 061072 
173 061102 
174 061106 
175 

176 061170 
177 061174 
178 

179 061206 
186 061210 
181 061214 
182 061216 


CZ7RMNBO RMOS/3/2 FCTINL TST 2 
ERROR TYPEOUT ROUTINE 


104415 
000207 


122 126 

049 124 

040 105 

040 120 

0 000 

055 040 

9 Sle 061206 

117 127 
000000 

720 125 
000000 
000 


273: 


ERTYOC: 
ERTYO1: 
ERTYO2: 
ERTYOS: 
ERTYO4: . 
ERTYOS: 


-EVEN 
PFECH: 


PFECH?: 


PFECH2: 


PFECHS: 
PFECH4: 


RESREG 
RTS 
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p 
0 : TEST NUMBER 

0 ;ERROR NUMBER 

0 ;BEGINNING OF TEXT ADDRESS 
0 ;BOT FLAG 

0 ; CHARACTER COUNT 
aDRVAa 

a, TEST# 

a, ERR#a 

a, PC= 

a a 

a- a 


PFECHT ,PFECH2 ,PFECHS,PFECHS ;WORDS DEFINING TABLES BELOW 


-*%, 
ASCIZ 
EVEN 


-*4,0 
-ASCIZ 
° EN 


+ 


“WORD 
= 
“BYTE 


?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


?CPUERREG? 


CPSAVE ,0 
0.0 


SEQ 0236 


C7RMNBO Pe tice FCTNL 


TTY INPUT ROUTINE 


° 
' 


061227 


117746 
042716 
021627 
001002 
005726 
000002 


021627 
7 


022737 
001004 
104401 


TST 2 


000100 


117656 
177600 
000021 


000003 


062426 
061230 


062470 
000007 


000176 


000001 
OO1272 
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~SBTTL TTY INPUT ROUTINE 


SRR AAAAAAARAAAAAAEEETRAREAEHEEHHEREREEREEHEEREEHRHEERERERER REE ee 


-ENABL LSB 
STKCNT: .WORD 0 
STKQIN: 0 
$TKQOUT: 
S$TKQSRI*: 
$TKQEND=. 
EVEN 


:*TK INITIALIZE ROUTINE 


; ;NUMBER on tea IN QUEUE 


INTER 
ii TTY KEYBOARD QUEUE 


HE TTY KEYBOARD INPUT QUEUE 


Tl 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


z*THIS ROUTINE WILL INITIALIZE T 
s*CALL: 
;* JSR PC ,STKINT 
3* RE TURN 
STKINT: CLR STKCNT 
061222 MOV #STKQSRT,STKQIN 
061224 MOV STKQIN, STKQOUT 
0 0 MOV #STKSRV ,AATKVEC 
000062 MOV #200 ,@#TKVEC+2 
TST a$Tk8 
117662 MOV #100, a$TKS 
RTS PC 


:*TK SERVICE ROUTINE 
>*THIS ROUTINE WILL SERVICE THE 


> *BY a ia THE CHARACTER FROM THE 


:*IT INT 


:*IF THE CHARACTER IS A ‘'CONTROL- c'ts¢ 


;sCLEAR COUNT OF ITEMS IN QUEUE 
+ MOVE THE STARTING ADDRESS OF THE 


;QUEUVE INTO THE INPUT & OUTPUT POINTERS. 


: 3 INITIALIZE THE KEYBOARD VECTOR 
;" BR’ LEVEL 4 


;;CLEAR DONE FLAG 
AP 3 E TTY KEYBOARD INTERRUPT 
; RET TO CALLER 


TTY ere INTERRUPT 
NPUT BUFFER AND PUTTING 


(“C) STKINT IS CALLED AND 


;*UPON RETURN EXIT IS MADE TO THE “CONTROL ~C"" RESTART ADDRESS (SHUT2) 


STKSRV: MOVB a$Tk8,- (SP) 
BIC #°0177, (SP) 
CMP (SP) , #$XON 
BNE 30$ 
TST (SP) + 
RT] 

30$: 
CMP > ,e2 
TYPE Rie. of 
JSR PC $TKINT: 
TST (SP) + 
JMP SHUT 2 

1$: C (SP) a7 
BNF 2$ 

001154 CMP #SWREG, SWR 

BEQ 6$ 

2$: 

061220 CMP #1 $TKCNT 

3NE 3$ 
TYPE , SBELL 


H 
CLEAN RANDOM XON OFF STACK 


/TORETURN 


z:z1S IT A CONTROL C? 

7 BRANCH IF NO 

7 TYPE A CONTROL-C (“*0) 
3: INIT THE KEYBOARD 

;; CLEAN UP STACK 


=:1$ SOFT=SWR SELECTED? 
3:G0 TO SWR CHANGE 


si] THE QUEUE FULL? 
;BRANCH IF NO 
[RING THE TTY BELL 


SEQ 0259 


°7RMNBO gf Ae FCTNL 
TTY [NPUT ROUT]! 


061526 


061530 


021627 
001300 


123727 


104402 


TST 2 


000023 
117542 
117534 
117530 
177600 
000021 
000100 


061220 
000740 


000175 


061222 
061226 


000176 
117414 
117410 


177600 
000007 


001150 


061230 
117352 
000001 


0001 76 
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117506 


061227 
061222 


001154 


000001 


001157 


3%: 


31$: 


32$: 


4$: 


5$: 


(SP) tS CHARACTER OFF OF _— 
(SP) #23 i315 IT A CONTROL=<S? 
Z : ANCH IF NO 
a$TKs DISABLE TTY KEYBOARD INTERRUPTS 
(SP) + 3; CLEAN CHAR OFF STACK 
asTKS 3ZzWAIT FOR A CHAR 
31$ hs UNTIL ITS THERE 
a$TKB,-(SP) 3iGET THE CHARACTER 
#°°177, (SP) 7zMAKE IT 7-BIT ASCII 
(SP)+,#21 3:18 IT A CONTROL-Q? 
31$ ;;BRANCH IF NO 
#100,a$TKS ‘ta TTY KEYBOARD INTERRUPTS 
STKCNT == COUNT THIS CHARACTER 
(SP) ,4140 3318S IT UPPER CASE? 
4$ sj CH IF YES 
(SP) 4175 iT IT A SPECIAL CHAR? 
4$ ss CH IF YES 
#40, (SP) 7:MAKE IT UPPER CASE 


(SP) +, @$TKQIN 


>sAND PUT IT IN QUEUE 
sUPDATE THE POINTER 


KQIN 
SIKOIN ABTKOEND 360 OFF THE END? 


;BRANCH IF NO 


#$TKQSRT,S$TKQIN ::RESET THE POINTER 


5 ERASE 


:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE . 


$CKSWR: 


(MP 
BNE 


ASWREG , SWR 
15$ 


EXIT IF 
astks -1S A CHAR arn 
15$ ::1F NOT, EXIT 
es ~(SP) = YES 
#°C177. (SP) *:MAKE IT 7=BIT ASCII 


(SP) .# 
2$ 


4A IT A CONTRCL-G? 
Ry IT IN THE TTY QUEUE 


“SERRA KERAEKARERTAATRAARARAAEARAEARAREAAERARHARARERAAEEKEEREREKREEREKRE 


: CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 


; *ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
Peete alee hin of? 


6$: 


$CTSWR: 


ee ee ee ee ep ee = 
- - - —-- oe - 


rial 
(SP) + 


& 
A 


PC, STKINT 
TKS 

#1,$INTAG 

»$SCNTLG 

, SMSWR 

SWREG ,=(SP) 


AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
: WE RUNNING IN AUTO-MODE? 
; ;BRANCH IF YES 
;CLEAR CONTROL-G OFF STACK 
: 7 FLUSH THE TTY INPUT QUEUE 
sDISABLE TTY KEYBOARD INTERRUPTS 
=: SET INTERRUPT MODE INDICATOR 


;ECHO THE CONTROL=G (*G) 
: TYPE CURRENT CONTENTS 
:SAVE SWREG FOR TYPEQUT 
::GO TYPE=-QCTAL ASCIICALL DIGITS) 


CZ7RMNBO RMOS/3/2 FCTNL 
"TY INPUT ROUTINE 


117746 
042716 


021627 


v01005 


TST 2 

062456 
117312 
117306 
177600 
000003 
062426 
000006 
001151 
000100 
062470 
000025 
062433 
000006 


000015 
000004 


7 
001151 
000100 


056642 
000060 


000067 


000060 
000002 


000002 
177776 
001216 
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000001 
117244 


117772 


000001 
117150 


19%: 


7%: 


S$: 


20$: 


17$%: 


18$: 


BR 
-DSABL LSB 


SYNE i 
(SP) 
-(SP) 
a$TKS 
7$ 


a$TkKB,-(SP) 
aac? (SP) 
(S?) #3 
9$ 
,SCNTLC 
6,SP 
SINTAG, #1 
8$ 
#100,a8TKS 
SHUT 2 


(SP) ,#25 
10$ 
»SCNTLU 
#6,S 

19$ 

(SP) ,415 
16$ 
4(SP) 
11$ 
2(SP) ,aSWR 
6,SP 


¢ 


. $CRLF 
— 


5 
#100, ,a$TKS 


PC ,STYPEC 
+ hia 


18 

(SP) 467 
18$ 

#60, (SP)+ 
2(SP) 


2(SP) 
-2(SP), (SP) 
7$ 

$QUES 


20$ 


H 3 
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3 zPROMPT FOR NEW SwWR 
:-CLEAR COUNTER 


F NOT TRY AGAIN 


:3PICK UP CHAR 
3iMAKE IT 7-BIT ASCII 


iiT IT A CONTROL=-C? 
ee CH H IF NOT 
YES, ECHO CONTROL=-C (“C) 

CLEAN UP STACK 
> ;REENABLE TTY KEYBOARD INTERRUPTS? 
; BRANCH IF NO 
;sALLOW TTY KEYBOARD INTERRUPTS 
:sCONTROL-C RESTART 


i215 IT A CONTROL =U? 

i 6 IF NOT 

:YES, ECHO CONTROL-U (“U) 
oe ; IGNORE PREVIOUS INPUT 
;7LET*S TRY IT AGAIN 


:z1S IT A <CR>? 
:;BRANCH IF NO 
:: YES, Ny iy “— FIRST CHAR? 


«ECHO <CR> AND <LF> 
7 RE-ENABLE lot KBD INTERRUPTS? 


7;RE-ENABLE TTY KBD INTERRUPTS 


: ;BRANCH IF YES 

sz STRIP-OFF ASCII 

::IS THIS THE FIRST CHAR 

3; BRANCH IF YES 

2 NO, SHIFT PRESENT 

ae CHAR ay TO MAKE 
ROOM FOR NEW ONE. 

: IKEEP COUNT OF CHAR 


a ?<CR><LF> 
>SIMULATE CONTROL =U 


FF SAAS AAAAHRAKAAHARAARAAHAAAATRAECHHRAREOHRAHEREHAHERRAAAHAHAReeeReHene 


SEQ 0261 


Ee 


a 
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TTY INPUT ROUT INE SEQ 
Pty ty ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
2 *CALL: 
3° RDCHR 37GET A CHARACTER FROM THE QUEUE 
:* RETURN HERE 37 CHARACTER IS ON THE STACK 
;° s;WITH PARITY BIT en OF F 
062072 011646 SRDCHR: MOV (SP) ,=(SP) 3;PUSH DOWN THE PC AND 
062074 016666 000004 000002 MOV 4(SP) ,2¢SP) s THE PS 
062102 005066 000004 CLR 4(5P) 3;i:GET READY FOR A CHARACTER 
062106 005046 CLR -(SP) :zPUT NEW PS ON STACK 
062110 012746 062116 MOV #64$,-(SP) 7;PUT NEW PC ON STACK 
062114 000002 RTI 7z:POP NEW PC AND PS 
062116 64$: 
062116 005737 061220 1$: TST — ;zWAIT ON A CHARACTER 
062122 001775 BEQ 1$ 
062124 005337 061220 DEC STKCN ;DECREMENT THE COUNTER 
062130 117766 177070 000004 MOVB ae TKoOuT. 4 (SP) “3GET ONE CHARACTER 
062136 005237 061224 INC $TKQOUT ;UPDATE THE POINTER 
062142 023727 061224 061227 CMP STKGOUT, #STKOEND- DID IT GO OFF OF THE END? 
062150 001003 | BNE 2$ ; BRANCH IF NO 
062152 012737 061226 061224 MOV #STKQSRT, $TKQOUT As ty THE POINTER 
062160 000002 e$: RT] 7 RETURN 
FEAR RARER AEA ER ERATE RAEEREEEEEEHEKRE RE 
STHIS ROUTINE WILL INPUT A STRING FROM THE TTY w 
"* 
s* RDLIN 3:2 INPUT A STRING FROM THE TTY 
5* RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;* 72 TERMINATOR WILL BE A BYTE OF ALL O'S 
062162 010346 $RDLIN: MOV R3,-(SP) 77 SAVE R3 
062164 005046 CLR -(SP) ;;CLEAR THE RUBOUT KEY 
062166 012703 062416 1$: MOV #$TTYIN,R3 ::;GET ADDRESS 
062172 022703 062426 2$: CMP A#$TTYINeB. ,R3 7 BUFFER FULL? 
062176 101456 BLOS 4$ 37BR IF YES 
062200 104411 RDCHR 3;GO READ ONE CHARACTER FROM THE TTY 
062202 112613 MOVB (SP)+, (R35) 3z:GET CHARACTER 
062204 122713 000177 10$: CMPB #177, (R3) :z1S IT A RUBOUT 
062210 001022 BNE 5$ 3 IF NO 
062212 005716 TST (SP) :1S pag ae THE FIRST RUBOUT? 
062214 001007 BNE 6$ > :BR IF NO 
062216 112737 000134 062414 MOVE #'\ 9 «TYPE A BACK SLASH 
062224 104401 062414 TYPE >>: 
062230 012716 177777 MOV A-1, (SP) 3;:SET THE RUBOUT KEY 
062234 005303 6$: DEC R3 ; BACKUP BY ONE 
062236 020327 062416 CMP R3,ASTTYIN i 3 STACK EMPTY? 
062242 103434 BLO 4$ 77BR IF YES 
062244 111337 062414 MOVB (R3),9$% tt TO TYPEOQUT THE DELETED CHAR, 
062250 104401 062414 TYPE 9 ::GO TYPE 
062254 000746 BR 2$ ::;GO READ ANOTHER CHAR. 
062256 005716 S$: TST (SP) ;;RUBOUT KEY SET? 
062260 001406 BEQ 7$ ;3BR IF NO 
062262 112737 000134 062414 MOVB #°\ 9% 32 TYPE A BACK SLASH 
062270 104401 062414 TYPE 9 
062274 005016 CLR (SP) 3:CLEAR THE RUBOUT KEY 
062276 122713 000025 7$: CMPB #25, (R3) :;1S CHARACTER A CTRL U? 


062302 001003 BNE 8$ ;;BR IF NO 


CZ7RMNBO RMO5/3/2 FCTANL 
TTY INPUT ROUTINE 


—_— -—~ _— _ — 


8 

Nm 

we 
=) 


012737 
105737 
001002 
000137 
000002 


TST 2 


062433 
000022 


177777 
001220 


000004 
062416 


032142 
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000002 
000004 


——$ QOO 
=~ 
OWI 


001326 


8$: 


4$: 
3$: 


9$: 


STTYIN: 


TYPE 


-SCNTLU 33 TYPE A CONTROL ‘U"’ 
3:GO START OVER 
#22,(R3) 3731S CHARACTER A ‘“*R*'? 
3$ : ;BRANCH IF NO 
(R3) tty THE CHARACTER 
» $CRLF YPE A ‘‘CR'’ & LF" 
-STTYIN LTV THE INPUT STRING 
$ ee a A ,ANOTHER CHACTER 
, $QUES SiTYPE A 
1$ ;; CLEAR THE BUFFER AND LOOP 
oie ;sECHO THE CHARACTER 
#15,(R3)+ +4 CHECK FOR RETURN 
c$ LOOP IF NOT RETURN 
-1(R3) TCLEAR RETURN (THE 15) 
. $LF +i TYPE A LINE FEED 
(SP) + :CLEAN RUBOUT KEY FROM THE STACK 
(SP)+,R5 : RESTORE R3 
(SP) ,-(SP) ¢ ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) ie FIRST ASCII CHARACTER ON IT 
#S$TTYIN,4(SP) 
; sRETURN 
0 : ¢ STORAGE FOR ASCII CHAR. TO TYPE 
0 ; TERMINATOR 


8. + : RESERVE 8 BYTES FOR TTY INPUT 
/*C/<15><12> :; CONTROL ‘'C’’ 

/*U/<15><12> +s 

/*G/<15><12> 3: CON 
<15><12>/SWR = / 


—" 


/ NEW = 

#-1,CTLFG ;SET THE CONTROL-C FLAG 
$TSTNM ;DOING ANY TESTS ? 

1$ :BR IF YES 

SHUT sNO--RESPOND TO “C 


sEXIT FROM INTERRUPT 


ES EE 0 ee - 


K 3 
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READ AN OCTAL NUMBER FROM THE TTY 


1 -SBTTL READ AN OCTAL NUMBER FROM THE TTY 


SEQ 0244 


wre ee ee ee 


LL 


J TAA AAA AAA EAA AERA REET AAEAAAAEAATRATAREREEREKRERHERER RARER Eee 


 STHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
:*CHANGE IT TO BINARY. 


= *CALL: 
| :* RDOCT ;;READ AN OCTAL NUMBER 
| 3% RETURN HERE 3i7LOW ORDER BITS ARE ON TOP OF THE STACK 
| ;* 3ZHIGH ORDER BITS ARE IN $HIOCT 
| 062512 011646 $RDOCT: MOV (SP) ,-(SP) 3 SPROVIDE SPACE FOR THE 
| 062514 016666 000004 000002 MOV . 4(SP),2(SP) T NUMBER 
062522 01004 MOV RO,-(SP) -:PUSH RO ON STACK 
062524 010146 MOV R1,-(SP) ; «PUSH R1 ON STACK 
062526 010246 V R2,-(SP) 7ZPUSH R2 ON STACK 
25 104412 1$: RDLIN shee AN ASCIZ LINE 
062532 012600 MOV (SP)+,RO T ADDRESS OF 1ST CHARACTER 
25 5001 CLR R1 +: CLEAR DATA WORD 
25 005002 CLR R2 
062540 12046 2$: MOVB (RQ)+,-(SP) ;zPICKUP THIS CHARACTER 
2542 001412 BEQ 3$ 3z1F ZERO GET OUT 
062544 006301 ASL R1 ii*2 
062546 006102 ROL R2 
062550 006301 ASL R1 toh 
062552 006102 ROL R2 
062554 006301 ASL R1 77*8 
062556 00610 ROL R2 
062560 042716 177770 BIC #*C7, (SP) +2 STRIP THE ASCII JUNK 
062564 06260 ADD (SP)+,R1 ::;ADD IN THIS DIGIT 
25 764 BR 2$ ;LOOP 
062570 00572 3$: TST (SP) + «CLEAN TERMINATOR FROM STACK 
062572 010166 000012 MOV R1,12(SP) 7: SAVE THE RESULT 
062576 010237 062612 MOV R2,$HIOCT 
062602 01260 MOV (SP)+,R2 7ZzPOP STACK INTO R2 
2 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 
062606 012600 MOV (SP)+,RO :zPOP STACK INTO RO 
062610 000002 RT] 7 ;RETURN 
062612 000000 $HIOCT: .WORD 0 : ;HIGH ORDER BITS GO HERE 


ee ee ew ee 
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-SBITL TRAP DECODER 


° FETA AAA AREER AAA AERA AERAAAAEEREAEARREEEATRARAEARERHEREKEREE Ee 


> * THIS aouT IN WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
: *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


062614 016646 000002 STRAP: MOV 2(SP) ,-(SP) 3;ASSUME THE STATUS OF 
062620 042716 000020 BIC #29, (SP) 3; THE CALLER=-DO NOT ALLOW 
062624 012746 062632 MOV #1$,-(SP) 3; T-BIT TRAPS 

062630 000002 RTI ;sSET THE NEW STATUS 
062632 010046 1$: MOV RO,~(SP) :sSAVE R 

0626354 016600 000002 MOV 2(SP) ,RO + 3GET TRAP ADDRESS 
062640 005740 TST -(RO) KUP BY 2 

062642 111000 MOVE (RO) ,RO : GET RIGHT BYTE OF TRAP 
062644 006300 ASL RO POSITION FOR INDEXING 
062646 016000 062666 MOV $TRPAD(RO).RO 3; INDEX TO TABLE 

062652 000200 RTS RO ::GO TO ROUTINE 


:;THIS IS USE TO HANDLE THE’''GETPRI'’ MACRO 


062654 011646 $TRAP2: MOV (SP) ,~(SP) :sMOVE THE PC DOWN 
062656 016666 000004 000002 MOV 4(SP) ,2(SP) :sMOVE THE PSW DOWN 
062664 000002 RTI ;sRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘'TRAP*’ INSTRUCTION. 


: ROUT INE 
062666 062654 , STRPAD: .WORD $TRAP2 
062670 056430 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
062672 056226 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
062674 056202 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
062676 056242 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
062706 055756 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
062702 055702 STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
062704 061620 $GTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 
062706 061530 $CKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR 
062710 062072 SRDCHR ;;CALL=RDCHR TRAP+11(1046411) TTY TYPEIN CHARACTER ROUTINE 
062712 062162 $RDLIN ;;CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
062714 062512 $RDOCT ;;CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
062716 055606 $SSAVREG ;;CALL=SAVREG TRAP+14(104414) SAVE RO-RS ROUTINE 
062720 055644 SRESREG ;;:CALL=RESREG TRAP+15(104415) RESTORE RO-RS ROUTINE 


—_— ee ee ee ee ee eee Se se or -hSN R —_ — 
— - - - ~ _— -— ee 


“ 
4 


116176 
063066 
062774 


116150 


062722 
000340 


012 


000001 
000001 


000001 


063342 
000001 
000100 
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000024 
000026 


000024 


000024 


000024 
000026 


120 


063344 
063342 


063344 


001242 
001243 


POWER — ROUT INE 
$PWRDN: #SILLUP ,a#PWRVEC at +9 on FAST UP 


POWER DOWN AND UP ROUTINES 


FTAA AAA AA AAA AAEAAAAAAAAERAAAREAERARAAARARARERRARERAAEEHEHREE HEHE 


#540, QAPURVEC +2; 


37PUSH RO ON STACK 


: PUSH @SWR ON STACK 


SAVE SP 
#SPWRUP ,a#PWRVEC ;;SET UP VECTOR 


mo” 5 


3zHANG UP 


LEAR AAA ARATE EERE AERA RARER EE 


POWER UP ROUTINE 
ASILLUP,@#PWRVEC i FAST DOWN 


$PWRUP : 


1$: 


SPWRMG : 
SILLUP: 


SSAVR6: g3 
S$POWER: .ASCIZ <15><12>° POWER'' 


- SBTTL 


V 


$SAVR6, SP 
R6 


(SP)+,R5 


;;WAIT LOOP FOR THE TTY 
ae THE INC 


; D 
:3;POP STACK INTO @SWR 
;;POP STACK INTO R5 


Be @ Bete bee 
See Be ® 

N ps 
> 
~ 
x 
_ 
2 
~ 
© 
Pp) 
N 


: STA 0 RO 
ASPWRDN , aAPWRVE C :3SET UP THE POWER DOWN VECTOR 


#340, a#PWRVEC +2 
SPOWER 


oe 


“REPORT THE POWER FAILURE 
: POWER FAIL MESSAGE POINTER 


3s THE POWER UP SEQUENCE WAS STARTED 
:: BEFORE THE POWER DOWN WAS COMPLETE 
;sPUT THE SP HERE 


APT COMMUNICATIONS ROUTINE 


LASSE SASAARARLASESARARARRARARASASASAARARRARARASLARRARARARRSSASS AS & | 


VB 
MOVB 





#1, SFFLG 
#1, $MFLG 


$ATYC 

#1 ,S$FFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 

5$ 
heated 


#APTSPOOL , SENVM 


cmt = ee rt te ed ee ee a ee 


3:TO REPORT FATAL ERROR 
32TO TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 
7zPUSH RO ON STACK 
;;PUSH R1 ON STACK 
: aa TYPE A MESSAGE? 

;IF NOT: BR 
; SOPERATING UNDER APT? 

NOT: BR 

: = SHOULD SPOOL MESSAGES? 


me eee ee se 


SEQ 024¢ 


——_——-. 


 CZRMNBO RMOS/3/2 FCTNL TST 2 
| APT COMMUNICATIONS ROUTINE 


000040 


000004 
000002 
001222 
001236 


001236 
0012406 
000004 


000004 
000002 
177776 
056450 
063344 
001242 
001222 


063542 
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000004 


001222 


063254 
000004 


001224 
G00004 


1$: 


2$: 


12$: 


$LFLG: 
SFFLG: 


% 
¢ 
S 


APTCSUP 


100 
040 


nou iw 
=) 
oO 
7 


3$ 

a4 (SP) ,RO 
#2,4(SP) 
-_*= 


RO, $MSGAD 
(RO) + 


2$ 
$MSGAD ,RO 
RO 


RO, $MSGLGT 
oon re 


a4 (SP) .4$ 
#2,4(SP) 
177776, ~(SP) 
PC. STYPE 


oat ® 


(SP)+,R1 
(SP)+,RO 
PC 

0 

0 

0 


371F NOT: BR 
72GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 
:iSEE IF DONE W/ LAST XMISSION? 
+ =PUT ADDR IN MAILBOX 
3zF IND END OF MESSAGE 


3;SUB START OF MESSAGE 

3;GET MESSAGE LNGTH IN WORDS 
3;PUT LENGTH IN MAILBOX 
3:TELL APT TO TAKE MSG. 


:zPUT MSG ADDR IN JSR LINKAGE 
-BUMP RETURN ADDRESS 

: PUSH 199776 ON STACK 

-:CALL TYPE MACRO 


:; SHOULD REPORT FATAL ERROR? 
34 NOT: BR 
er go UNDER APT? 


IF NO BR 
: 7F INISHED LAST MESSAGE? 
NOT: WAIT 
GET ERROR K 
;BUMP RETURN ADDR. 
ss Teuk APT TO TAKE ERROR 
::CLEAR FATAL FLAG 
3: CLEAR LOG FLAG 
3z:CLEAR MESSAGE FLAG 
32:POP STACK INTO R1 
:zPOP STACK INTO RO 
> RETURN 


7:RE 

3 zMESSG. FLAG 
3;:LOG FLAG 
FATAL FLAG 


SEQ 024/ 
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; -SBTTL CONSOLE MESSAGES , 

3 063346 200 103 7101 SCTMSG: .ASCIZ <CRLF>@CANNOT RECOVER @HE BAD SECTOR FILES ON THIS DEVICE@ 
4 063432 075 000 EQUALS: .ASCIZ a= 

5 063434 101 114 114 ALL: eASCIZ @ALL@<CRLF>O 

6 063441 040 077 O QUES: .ASCIZ @? 4a 

7? 063445 054 040 COMMA: .ASCIZ @, @ 

8 063450 200 124 117 MSHELP: .ASCII <CRLF>@TO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKa 
9 063536 200 120 101 ASCII <CRLF>@PACK, THIS PROGRAM SHOULD BE HALTED BY TYPING A (*0)a@ 
10 063624 200 103 117 ASCII <CRLF>@CONTROL C. AS A RESULT, THE PROGRAM WILL BE HALTED@ 
11 063712 200 127 110 -ASCI] <CRLF>@WHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING. @<CRLF > 

le 063774 200 124 131 ~ASCIZ <CRLF>@TYPE HELP TEXT (L) N? 2 
135 064025 200 122 115 CNSLO1: .ASCIZ <CRLF>@RMCS1=a 
14 064035 040 114 111 CNSLO2: .ASCIZ @ LIMITS - LO= 160000, HI= 17XXxxXa@<CRLF> 
15 064077 122 115 126 CNSLO3: .ASCIZ @RMVEC=a 
16 064106 0406 114 117 CNSLO4: .ASCIZ @ LIMITS - LO= 0, HI= 1000@<CRLF><LF> 
17 064142 200 124 131 CNSLO7: .ASCII <CRLF>@TYPE ‘‘A*’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)@ 
18 064227 200 101 116 ~ASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.@ 
19 304 200 CNSLO8: .ASCI1 <CRLF> 
20 305 040 077 111 CNSLO9: .ASCIZ @ ?ILLEGAL INPUT@<CRLF> 
21 064326 200 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): / 
22 342 104 122 177 GDRV: .ASCIZ /DRIVE/ 
23 064350 200 125 116 SYSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
JS 122 115 060 S$RMO2: .ASCIZ /RMO2/ 
25 064573 122 115 060 $RMO3: .ASCIZ /RMO3/ 
26 064400 122 115 060 $RMO5: .ASCIZ /RMOS/ 
27 064405 040 116 117 NOTRM: .ASCIZ @ NOT AN RMO5/3/2a 
28 064426 040 114 117 LODEV: .ASCIZ / LOAD DEVICE/ 
29 064443 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
064460 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 
31 064477 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
32 064510 040 117 116 UNTON: .ASCIZ / ONLINE/ 
33 064520 200 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 
064547 116 117 116 NONE -ASCIZ /NONE/ 
35 064554 116 000 N: eASCIZ /N/ 
36 064556 131 000 ¥: eASCIZ /Y/ 
7 5 040 BLNKS4: .ASCII / / 
38 064561 040 BLNKS3: .ASCI! / 
040 BLNKS2: .ASCII / / 
re 064563 040 000 wit ASCIZ / / 
EV 


CZRMNBO RM05/3/2 FCTNL TST 2 
F TABLE 


— 


mei ce us ee a 
OWWNAVMLWNM OO 0% VNOAUEW S 
oO 

4 


Nm 
— 


22 064566 
57 064566 020000 
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-SBTTL FUNCTION CODE TABLE 


:THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
sEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA ~ BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 


>IF ATA SHOULD BE SET WHEN TH. FUNCTION CODE IS EXECUTED. OTHERWISE, 
“BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT S 


NORMALLY BE 
:NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI ~- BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IvC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE ERRORS ARE ENABLED DURING pos EXECUTION OF THAT COMMAND. 
>THE WRITE ERRORS WHICH ARE ENABLED “er +» MF, OE. URE”. 


IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE ope ted OF THE 
>COMMAND. THE ERRORS ENABLED BY THIS BIT ARE ‘'TRE’’, ‘DLT’', ''NEM’’, 
:"MXF*, “LBT'', AND ‘‘AOE"’. 


; BIT 08 IS NOT USED. 


HCE - BIT O07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF HEADER ERRORS ARE ENABLED DURING THE ren OF THAT COMMAND. 
;HEADER ERRORS INCLUDE "HCRC’’, ‘HCE’’, ‘FER, "BSE". 


ECH = BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT 
>COMMAND. THESE ERRORS INCLUDE 'MDPE'', ‘DCK'', AND ‘TECH’. 


: BIT 05 IS NOT USED. 
: Bit 04 IS NOT USED. 
: BIT 03 IS NOT USED. 
BIT O02 IS NOT USED. 
; BIT 01 IS NOT USED. 
: ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: sFUNCTION CODE TABLE 
-WORD OPI ; NOP 


+ 
36 
33 


5/3/2 FCINL TST 2 
E TAB 


ue 
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-WORD OPI ‘ATALILF! IVC 
-wORD ATA!OPI!IVC!IAE 
. WORD — 


WORD 

WORD OPI! IvC 
-WORD OPI !ATA! IVC 
«WORD OPI !ATA! IVC 
-WORD OPI 

. WORD 


OP I 
WORD OPI!ATA!IL? ! IVC 
-WORD OPI‘!ATA!ILF! IVC 
~WORD ATA!OPI!IVC!IAE 
-WORD OPI!ATALILF! IVC 
-WORD OPI!ATA!ILF! IVC 
-WORD OPI!ATA!ILF!IVC 
-WORD OPI!ATA!ILF!IVC 
«WORD OPI!ATA!ILF! IVC 
-WORD OPI!ATA!ILF! IVC 
~WORD OPI!ATA!ILF! IVC 
«WORD WCE!OPI! IVC! IAE!AOE!HCE!ECH 
-WORD WCE!OPI!IVC!IAE!AOE!HCE! ial 
-WORD OPI!ATAL‘ILF!IVC 
-WORD OPI!ATA!ILF!IVC 
-WORD  OPI!IVC!WLE! IAE!AOE!HCE 
-WORD OPI! IVC!WLE! AE! AOE 
~WORD OPI!ATA!ILF!IVC 
-WORD OPI !ATA!ILF!IVC 
-WORD  OPI!IVC!IAE!AOE!HCE!ECH 
-WORD OPI!IVC!IAE!AOE!HCE!ECH 
-WORD OPI !ATA!ILF!IVC 
-WORD OPI!ATA!ILF!IVC 


fa FUNCTION (2) 
;RECAL IBRATE 


: OF 
RETURN TO CENTERLINE 
SREAD IN PRESET 

:PACK ACKNOWLEDGE 
ILLEGAL FUNCTION (24) 
ILLEGAL FUNCTION (26) 


: ILLEGAL FUNCTION (32) 


GAL 
WRITE CHECK DATA 
:WRITE CHECK HEADER AND DATA 
: ILLEGAL FUNCTION (54) 
: ILLEGAL FUNCTION (56) 
sWRITE DATA 
;WRITE HEADER AND DATA 
; ILLEGAL FUNCTION (64) 
: ILLEGAL FUNCTION (66) 
sREAD DATA 
sREAD HEADER AND DATA 
> ILLEGAL FUNCTION (74) 
; ILLEGAL FUNCTION (76) 


SEC 0250 


C2 
A’ 


MC ORs 


-ZRMNBO RMOS/3/2 FCINL TS: 2 
TENTION (ATA) TABLE 

7 

2 

3 064666 001 
4 064667 002 
5 964670 004 
6 064671 010 
? 064672 020 
8 064675 040 
9 064676 100 
10 064675 200 
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-SBTTL ATTENTION (ATA) TABLE 
ATNTBL: .BYTE Ta 


a ll OS a ees owe - 


CZ2RMNBO RMOS/ AS : C TNL 
DATA PATTERN T 


~—O OWONAME WR -OWOWONA US wr. 


2? 


676 


FEPERERRE 
® 


etRRE 


RERE 
REYSK 


064740 
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-SBTTL DATA PATTERN TABLE 


RGDTPT: 
MIKED: 


OEM WIP MR AWW DW HN OO WN HWE =] WV LO 
—DODdO UMD AIOe © © © © * « 


Sto 92%. 
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DATA PATTERN TABLE 


58 065050 020000 -WORD 8192. 
59 065052 010000 -WORD 4096. 
60 065054 004000 WORD 2048 
61 56 002000 WORD 1024 
6 001000 WORD 512 
63 065062 000400 WORD 256 
000200 -WORD 128 
65 000100 -WORD 64. 
065070 000040 WORD 32. 
67 065072 000020 WORD ‘16. 
68 065074 000010 WORD 8. 
© 065076 000004 WORD 4, 
70 065100 000002 WORD 2. 
71 065102 000001 WORD 1. 
72 065104 000000 WORD 0. 
73 065106 177777 WORD 65535. 
74 065110 177776 -WORD 65534. 
75 065112 177774 . WORD 5532 
76 065114 177770 -WORD 65528 
77 C65116 =177760 -WORD 65520 
78 065120 177740 «WORD 65504 
79 065122 177700 -WORD 65472 
5124 177600 -WORD 65408 
81 065126 177400 -WORD 65280. 
82 065150 177000 -WORD 65 
83 065132. 176000 -WORD 64512 
5134 174000 -WORD 653488. 
85 065156 170000 -WORD 61 
065140 160000 -WORD 57344 
87 065142 140000 -WORD 49152 
88 065144 100000 WORD 32768. 
89 065146 000000 WORD ‘ 
90 065150 000000 . WORD 
91 065152 100000 -WORD 32768 
92 065154 140000 WORD 49152. 
93 065156 160000 WORD 57344. 
60 170000 WORD 61440. 


100 065174 177700 WORD 65472. 
101 065176 177740 WORD 65504. 
102 065200 177 WORD 65520. 
103 065202 177770 WORD 65528. 
104 065204 177774 -WORD 65532. 
105 065206 177776 -WORD 65534 
106 065210 177777 -WORD 65535 
107 065212 125252 EARLY: .WORD 43690 
108 065214 152525 -WORD 43690./2 
109 065216 125252 . WORD 3690. 
110 065220 177777 WORD 65555. 
111 065222 177776 -WORD 65534. 
112 065224 177775 D 65533. 
113 065226 177773 WORD 65531. 
114 065230 177767 WORD 65527. 


Le ee 


—— —-.- — Se 


115 065232 
116 065234 
11? 065236 
118 065240 
119 965242 


WN & 
& 
Ww 
™ 
~N 
> 


SESBSAS SS 
TERTRE RTE 
Ro 288 


143 065322 
144 065324 


——_ — ~~. =e ee we 


-2RMNBO 8M05S/3/2 FCTML TST 2 
DATA PATTERN TABLE 


177757 
177737 
177677 
177577 
177577 
176777 
175777 
173777 
167777 
157777 


177776 
177777 


ere we eee 


ENRGDT: — 


————— ee eee oe — | mee 
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SW NN PUES 
Ow NNW won 
* e ' 8 @ ‘a6 & 


_TRMNBO 8MO0S/3/2 FCTNL 
FRROR MESSAGE TABLE 


LAM .2 

o 
WI" 

LA 

Nm 

> 


071712 


WDWNAALSWNH—OOWONAUS 
Ww 
P 


ie ie aameche Deane eae 
ERS 

Ww 

S 


Nm 
rs 
& 
Ww 
Wi 
—_> 
© 


57 066232 


TST 2 


074261 
076337 


074567 
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075073 
074306 


074333 


- SBITTL 


EMT67: 


ERROR MESSAGE 


TABLE 


EMS1.0 
EMS2.EMS3,0 
EMS2,EMS4.0 
EMSS ,EMS6,0 
EMS5.EMS10,0 
EMS 167,EMS64,0 
EMS110.EMS170,0 


EMS 


EMS10,0 

EMS11,EMS12,0 
EMS13,EMS14,EMS15,EMS16,0 
EMS17,EMS64 ,0 


0 

0 

0 

7,0 

7,0 
EMS11,EMS31,EMS30,0 
EMS11,EMS32,EMS30,0 
EMS11,EMS33,EMS30,0 
EMS11,EMS34,EMS30,0 
EMS11,EMS35,EMS30,0 
EMS11,EMS36.EMS30,0 
EMS11,EMS37,EMS30,0 
EMS11,EMS40,EMS30,0 
EMS11,EMS41,EMS30,0 
EMS11,EMS42,EMS30,0 
EMS11,EMS45,EMS30,0 
EMS11,EMS44,EMS30,0 
EMS11,EMS45,EMS30,0 


EMS66,EMS20,0 

EMS75 .EMS141,EMS76,0 

EMS144,€MS145,EMS72,EMS76,0 
47,—MS53,—MS76,0 


EMS101,EMS535,EMS76,0 

EMS65 ,EMS64, 

EMS13,EMS15,EMS63,0 
EMS11,EMS46,EMS30,EMS67,0 
EMS47,EMS53.EMS67,EMS115.EMS140,EMS141.0 
—EMS47,EMS53,EMS67,EMS115,EMS141.EMS164,0 


M 3,—MS67.0 
1,EMS72,EMS67,EMS115,EMS50,EMS70,0 
EMS167,EMS75,EMS67,0 
EMS56,EMS67,EMS115.EMS150,EMS152.EMS70,0 
EMS71.—EMS56_EMS67,EMS115,.EMS150,EMS152_EMS72,0 
EMS140,EMS67,EMS115.EMS47,—MS70.0 


EMS150,EMS152,EMS70,EMS115,EMS56,EMS73,EMS67,0 
EMS52.EMS205,EMS214.EMS206.EMS115,EMS51,EMS72,0 
EMS165,EMS103,EMS72.EMS 124.0 
EMS165,EMS103,EMS72,EMS171,0 


—_————— ee ee ee Se oe ee 
LL SE - 


a 
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072516 076541 EMT70: .WORD £&MS46,EMS20,EMS163.0 
066254 074320 0674512 076541 EMT71: .WORD &MS71-.EMS101,EMS163.0 
0 066264 074333 076541 EMT72: .WORD &MS47.EMS72,—MS163.EMS115,.EMS140.EMS141.0 
066302 073515 074333 076541 EMT73: .WORD &MS47.EMS72.EMS163.EMS115.EMS141_EMS72.0 
066320 073714 073631 076541 EMT74: .WORD &MS56.EMS53.EMS163.0 
066330 074320 073714 076541 EMT75: .WORD &MS71,EMS56,EMS163.EMS115,EMS150,EMS152,EMS72.0 


5 066 : $3°0 
066372 074377 076110 076541 EMT100: :WORD  EMS75,EMS141,EMS163.EMS115.EMS47,EMS70 .0 
: 15° EMS56,EMS73,0 


ie EMS163,0 
9 066436 076257 076313 074360 EMT103: .WORD &MS147.EMS151.EMS74.EMS163.0 
066450 073573 074360 076541 €EMT104: .WORD &MS51,EMS74,EMS163,EMS115.EMS50,EMS70.0 
066466 0676646 074464 076541 EMT105: .WORD &MS165,EMS100,EMS163,0 
066476 076646 074436 076541 EMT106: .WORD &MS165.EMS77,EMS163. 
066506 076201 076211 073631 EMT107: .WORD &MS144.EMS145,EMS53.EMS163,EMS115,EMS143,EMS70,0 
066526 074673 074733 075076 EMT110: .WORD EMS110,EMS112,.EMS116,EMS111 0 


066540 075017 072041 00 €MT111: .WORD &MS113.EMS4, 
066546 075017 071776 0 EMT112: .WORD : ,0 
4 074673 075073 075076 EMT113: .WORD &MS110,EMS115,.EMS116,EMS117,.EMS114.0 
78 066570 075017 075150 OO £MT114: .WORD &MS113.EMS120.0 
066576 075171 075631 075655 &MT115:° .WORD ,EMS132,EMS133,0 
80 075234 075631 075655 EMT116: .WORD &MS122.EMS132.EMS133. 
82 
83 1 
85 066656 076032 075631 075655 EMT123: .WORD &MS137.EMS132.EMS133. 
87 066676 075571 075631 075655 EMT125 EMS131.EMS1 3, 
066706 075171 075631 00 EMT126: .WORD &MS121.EMS132.EMS134.EMS123,0 
89 066720 075234 075631 075700 EMT127: .WORD &MS122.EMS132.EMS134_EMS123.0 
066732 075271 075631 075700 EMT130: .WORD £&MS123.EMS132.E »EMS123.0 
91 066744 075334 075631 075700 EMT131: .WORD &MS124.EMS132.EMS134_EMS123.0 
92 066756 075631 075700 EMT132: .WORD &MS125.EMS132.&MS134.EMS123.0 
93 066770 075431 075631 075700 EMT133: .WORD 6.EMS132, »EMS123.0 
067002 076032 075631 075700 EMT134: .WORD &MS137.EMS132.EMS1346.EMS123.0 
95 067014 075533 075631 075700 EMT135: .WORD &MS130.EMS132.EMS134.EMS123.0 
96 067026 075571 075631 075700 EMT136: .WORD &MS131.EMS132.EMS134.EMS123.0 
97 075171 075631 075742 €MT137: .WORD &MS121.EMS132.EMS135.0 
98 067050 075271 075631 075742 EMT140: .WORD &MS123.EMS132_.EMS135.0 
075171 075631 07 EMT141: .WORD £&MS121.EMS132.EMS1 36.0 
100 067070 076032 075631 076005 EMT142: .WORD &MS137.EMS132.EMS136.0 
10 075334 075631 076005 EMT143: .WORD &MS124.EMS132.EMS136.0 
102 067110 075631 076005 EMT144: . EMS125.EMS132.EMS1 36.0 
103 067120 075431 075631 076005 EMT145: .WORD &MS126.EMS132.EMS1 36.0 
075571 075631 076005 EMT146: .WORD &MS131.EMS132.EMS136.0 
105 067140 076763 075631 076005 EMT147: .WORD £&MS171.EMS132.EMS136.0 
106 067150 075533 075631 076005 EMT150: .WORD £&MS130.EMS132.EMS136.0 
107 067160 075073 076110 EMT151: .WORD £&MS140.EMS115.EMS141.EMS70,0 
108 067172 36 075073 076153 EMT152: .WORD &MS142.EMS115.EMS143.EMS72.0 
109 076201 076211 076240 EMT153: .WORD &MS144.EMS145,EMS146.EMS115,EMS143,EMS72,0 
110 067222 076201 076211 072516 EMT154: .WORD &MS144.EMS145.EMS20,EMS115,EMS143.EMS70, 
111 0672460 076274 076337 076405 EMT155: .WORD &MS150.EMS152.EMS154.EMS153,0 
112 067252 076257 076313 076405 EMT156: .WORD &MS147.EMS151.EMS154.EMS155.0 
113 067264 076257 076313 076441 £EMT157: .WORD &MS147.EMS151.EMS156.EMS157.0 
114 067276 076511 076441 076474 EMT160: .WORD £&MS161.EMS156.EMS160.0 


——_—_— 
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074077 


077373 


000000 


EMT161: 


EMT251: 


. WORD 





EMS25,EMS27, EMS156, EMS160,0 
EMS26.EMS27.EMS156.EMS160.0 
EMS47.EMS163,EMS140,0 
EMS47.E $5 6 


EMS56, 


mM 
EMS20,0 


EMS46,EMS20 ° 
EMS224, EMS2 
EMS203, asia: 1 .Ems30 EMS202,0 


EMS167,EMS154.EMS157,0 
EMS167,EMS154.E MSI 
EMS171,EMS1 32,6 

EMS171 -EMS132. EMS134°EMS123. 0 
EMS113,EMS177.0 

EMS200, EmS201. 0 

EMS203, EMSS1, EMS30 EMS202 5% 
EMS203,£ MS30,EM 

EMS203, mss. ems30 soeogo. 6° 
EMS203.EM 

EMS150,EMS7 

EMS5O,EMS a 

EMS104,EMS73, 


55,0 
$133,0 


} 45 ,EMS30, EMS202,0 


MS202,EMS115 »EMS152,EMS72,0 


EMS202,0 
EMS75,EMS141.EMS115,EMS140,0 
EMS75 ,EMS150,0 


EMS51 .EMS72,EMS115,EMS50,EMS70,0 
EMS 14 42,EMS53,EMS115,EMS143, ems7>, 0 


MS50,EMS103,EM MS53. 6 


EMSS. EMS20 


att ,£MS117,EMS56, EMS 


e 


EMS30,EMS64 ,0 


EMS52.EMS117,EMS63.0 


EMS211,EMS210,EMS207.EMS206, 0 


EMS167,EMS132,EMS207 
EMS167,EMS132,EMS210 
EMS167, 
EMS212,EMS213,0 


5,EMS166, meer -EMS51,EMS72,0 


c 


0 
EMS125,0 
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172 070074 


227 36 
228 071244 


a 


073621 


TST 2 


077447 


075126 
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000000 
073714 


EMT 252: 


EMT 342: 


EMS165,EMS212,0 
EMS147. EMS151, EMS156,EMS210,EMS26.EMS27,0 
EMS203.EMS101 .EMS30,0 


EMS52.E EMS102,0 
EMS52. EMS $205. “EMS2 30. EMS206,EMS115,EMS51,EMS72.0 
EMS104, ,EMS202,0 

EMS5O,EMS53,EMS102, 

EMS56.EM MS93, EMS 102.EMS115,—MS150,EMS152.EMS70,0 
EMS71.EMS $56, 6 EMS 102 E EMS115,EMS150,EMS152.EMS72.0 
EMS142,EM MS102,0 

EMS5O, fas 346. EMS115.EMS52,—MS117,EMS46,0 
EMS47.EMS53,EMS102,EMS115.EMS1 

EMS47. EMS93 EMS102,EMS115 EMe141. °EMS72,0 
EMS75,.EMS141,EMS102,EMS115,EMS47.EMS73.0 

EMS51, EmS7s. EMS102,€MS115,EMS50,—MS70,0 

EMSGS, Eng $ERS4 EMS115 ,EMS41,EMS146.0 


ZENS 103.EMS57.0 
SIE y 0 


EnS64 ERS? 0 
6 EMS115,EMS52,EMS117,EMS46,EMS57,0 


ms50, EMS 143,EMS53,.EMS57.0 

at 03, EMS .EMS57..0 

EMS105.. “EMS 103" EMS53.EMS57.0 

EMS144.EMS145. “EMS 105~ EMS? EMS115.EMS143.EMS70,0 

EMS42,€MS103,EMS53,EMS57,0 

EMS31.EMS103.EMS53, Emes 7" 0 

EMS71 .EMS31 ,EMS103,EMS57.0 

EMS43.EMS103,EMS57.0 

EMS45 .EMS103,EMS57.0 

EMS44 .EMS103,.EMS57.0 

EMS106-EMS20.0 

EMS 56 EMS103.E 
msi73. EMS 36, “ENS 108, EMS57,0 

EMe1? EMS 36.EMS103.EMS57.0 

EMS13 sensi74 EMS15, Ewes EMS53,EMS175,0 
MS147,EMS151 gems? EMS175.0 

hy beet e 

EMS33. “EMS10%. EMSS. EMS175,0 

EMS4 0, EMS 5103.EMS53.EMS57. 


EMS60.EMS61,EM M620 

EMS116.EMS117,EMS 34,0 
EMS34.EMS53,EMS54,EMS111,0 

Te EMS 34 

EMS52, ‘Emily. EMS56,EMS57,0 
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ERROR MESSAGE T 
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229 071256 073621 075126 073423 €MT343: .WwORD &MS52.EMS117.EMS45.EMS57.0 
230 071270 073621 675126 073350 EMT344: WORD &MS52.EMS117.EMS44_EMS57.0 

231 071302 075126 077657 EMT345: .WORD &MS52.EMS117.EMS221 .0 

232 071312 074654 072516 075073 EMT346: .WORD .EMS20.EMS115.EMS223,EMS72,0 

233 071326 073621 077336 077727 EMT347: .WORD &MS52,EMS205. EMS222 EMS206,0 

234 071340 074377 076274 074540 EMT350: .WORD &MS75,EMS150.EMS102.EMS115.EMS56,EMS73,0 
235 071356 076707 074343 074540 EMT351: .WwORD &MS167.EMS73, EMS 105" 0 

236 071366 077533 000000 EMT352: .WORD £&MS215.0 

237 071372 077604 077273 077554 €EMT353: .WwORD £&MS217.EMS203,EMS216,0 

238 071402 077657 072516 000000 EMT354: .WORD &MS221.EMS20,0 


a ee ae 


; 
i 


1410 
1422 


7 
71432 
7 
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100770 
101115 


- 100770 


100770 


100770 
100770 
100770 


EHT256: 
EHT336: . 
EHT337: . 
EHT 344: 


EHT353: 


EH1,STSH1,S1TSH2,STSH4,0 
STSH1,STSH2,STSH4,0 


EH110,0 

EH111,0 

EH114,0 
EH223,STSH1,STSH2,STSH4,0 
EH256,STSH1,STSH2,STSH4, 
EH336,STSH1,STSH2,STSH4, 
EH337,STSH1,STSH2,STSH4, 
EH344,STSH1,STSH2,STSH4, 


EH353,0 


0 
0 
9) 
0 


a 


a -- 


Dn 
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ROR MESSAGE TABLE 

1 071534 101154 101250 101266 EDT1:  .WORD £&D1,STSD1,STSD2,STSD4 

¢ 071544 101250 101266 101320 EDT2: .WORD STSD1,STSD2,STSD4 

4 071552 1011€2 EDT110: .WORD £D110 

: 971554 101166 EDT111: .WORD €&D111 

7? 071556 101174 EDT114: .WORD €ED114 

: 071 101206 101250 101266 EDT223: .WORD £ED223,STSD1,STSD2,STSD4 
10 071570 101214 101250 101266 EDT336: .WORD £D336,STSD1,STSDZ,STSD4 
11 071600 101226 101250 101266 ED1357: .WwORD £&D337,STSD1,STSD2,STSD4 
¢ 071610 101226 101250 101266 EDT344: .WwORD £ED337,STSD1,STSD2,STSD4,0 
14 071622 101240 EDT353: .WORD €ED353 


— 





CZ7RMNBO RMOS/3/2 FCTNL 
FRROR MESSAGE TABLE 


1 071624 
¢ 071634 


101351 


191351 
101351 
103351 


MACRO v04.00 


101351 


101351 
101351 
101351 


. WORD 
. WORD 


: WORD 
: WORD 


: WORD 
: WORD 


: WORD 


cs 
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SF STSF STSF 
F STSF 


oSTSF ,STSF ,STSF 
EF 336.,STSF ,STSF ,STSF 
EF 336,STSF ,STSF ,STSF 
EF 336,STSF ,STSF ,STSF 


EF114 


es 
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iM -SBTTL ERROR MESSAGE STRINGS 
3 071712 127 122 117 EMS1: .ASCIZ @WRONG UNIT SELECTED (RMCS2, BITS 0-2) @ 
4 071761 104 105 126 EMS2: .ASCIZ @DEVICE WENT a 
5 071776 125 116 101 EMS3:  .ASCIZ  @UNAVAILABLE ‘DVA'' (RMCS1, BIT 11) a 
6 072041 116 117 116 EMSS: .ASCIZ @NONEXISTENT ‘NED** (RMCS2, BIT 12) @ 
7 072104 103 117 115 EMSS: .ASCIZ @COMMAND NOT COMPLETED, a 
8 072134 103 117 116 EMS6: .ASCIZ @CONTROLLER NOT READY (RMCS1, BIT 7) a 
9 072201 104 122 111 EMS7:  .ASCIZ @DRIVE NOT READY ‘DRY’ (RMDS, BIT 7) a 
10 072246 107 117 040 EMS10: .ASCIZ @G0 NOT RESET ‘'GO’' (RMCS1, BIT 0) a 
11 072310 117 116 126 EMS11: .ASCIZ @INVALID a 
12 072321 106 125 116 EMS12: .ASCIZ @FUNCTION CODE (RMCS1, BITS 1-5) a 
13 072362 115 101 123 EMS135: .ASCIZ @MASSBUS a 
14 072373 103 117 116 EMS14: .ASCIZ @CONTROL @ 
15 072404 102 125 123 EMS15: .ASCIZ @BUS PARITY ERROR @ 
16 072426 042 115 1053 EMS16: .ASCIZ a@'MCPE'’ (RMCS1, BIT 13) a 
17 072456 124 122 101 EMS17: .ASCIZ @TRANSFER ERROR (RMCS1, BIT 14) a 
18 072516 123 110 117 EMS20: .ASCIZ @SHOULD NOT BE SET a 
19 072541 127 117 122 EMS21: .ASCIZ @WORD COUNT (RMWC) a 
20 072564 102 125 123 EMS22: .ASCIZ @BUS (RMBA) a 
21 072 042 114 102 EMS25: .ASCIZ a@' BT’ (RMDS, BIT 10) a 
22 072626 042 101 117 EMS24: .ASCIZ @'‘AOE’’ (RMER1, BIT 09) a 
23 072655 104 111 123 EMS25: .ASCIZ @DISK (RMDA) a 
24 072672 103 131 114 EMS26: .ASCIZ @CYLINDER (RMDC) a 
25 072713 101 104 104 EMS27: .ASCIZ @ADDRESS @ 
26 072724 123 124 101 EMS30: .ASCIZ @STATUS a 
27 072734 042 127 114 EMS31: .ASCIZ @°WLE’’ (RMER1, BIT 11) a 
28 072763 125 120 EMS32: .ASCIZ @ ' (RMCS2, BIT 13) a 
29 073012 042 127 103 EMS33: ~ .ASCIZ a’ WCF’ (RMER1, BIT 5) a 
3 3040 127 122 111 EMS34: .ASCIZ @WRITE CHECK ERROR-’WCE*’ (RMCS2, BIT 14) a 
31 073111 042 115 104 EMS35: .ASCIZ a’ MDPE'' (RMCS2, BIT 8) 
32 073140 042 104 103 EMS36: .ASCIZ @'DCK*’ (RMER1, BIT 15) a 
33 073167 042 105 103 EMS37: .ASCIZ a’ ECH’’ (RMER1, BIT 6) a 
73215 042 104 114 EMS40: .ASCIZ a’ DLT" CS2, BIT 15) a 
35 073244 042 115 130 EMS41: .ASCIZ @'MXF** (RMCS2, BIT 9) a 
073272 104 124 EMS42: .ASCIZ a@'DTE'’ (RMER1, BIT 12) a 
37 073321 042 110° 103 EMS43: .ASCIZ a@'HCRC'’ (RMER1, BIT 8) a 
38 0733509 110 105 10i EMS44: .ASCIZ @HEADER COMPARE ERROR ‘HCE’ (RMER1, BIT 7) a 
39 073423 1 117 122 EMS45: .ASCIZ ORMA ROR ‘FER'’ (RMER1, BIT 4) a 
40 073466 042 117 101 EMS46: .ASCIZ @°‘IAE’’ (RMER1, BIT 10) a 
41 073515 042 117 120 EMS47: .ASCIZ @' DPI" (RMER1, BIT 13) a 
42 073544 042 123 113. EMS5O: .ASCIZ a'‘SKI*’ (RMER2, BIT 14) a 
43 073573 042 120 111 EMS51: .ASCIZ a’ PIP** (RMDS, BIT 13) a 
44 073621 124 110 105 EMS52: .ASCIZ @THE RM a 
45 073631 104 105 124 EMS53: .ASCIZ @DETECTED @ 
6 073643 101 124 040 EMS54: .ASCIZ @AT AN UNEXPECTED a 
073665 117 116 105 EMS55: .ASCIZ @INCORRECT DATA DURING a 
48 073714 1117 116 126 EMS56: .ASCIZ @INVALID COMMAND ERROR ''IVC'' (RMER2, BIT 12) a 
49 073771 104 125 122 EMS57: .ASCIZ @DURING DATA TRANSFER a 
50 074017 104 101 124 EMS60: .ASCIZ @DATA READ a 
51 074032 104 117 105 EMS61: .ASCIZ @DOES NOT COMPARE WITH @ 
52 074061 104 101 124 EMS62: .ASCIZ @DATA WRITTEN a 
53 074077 042 120 107 EMS63: .ASCIZ @'PAR'' (RMER1, BIT 3) a 
54 074125 177 123 040 EMS64: .ASCIZ @IS INCORRECT @ 
55 074143 103 117 115. EMS65: .ASCIZ @COMPOSITE ERROR ''ERR'’ (RMDS, BIT 14) a 
56 074211 104 101 124 EMS66: .ASCIZ @DATA PARITY ERROR ‘DPE’ (RMER2, BIT 3) @ 
57 074261 104 125 122 EMS67: .ASCIZ @DURING SEEK COMMAND a 


ee ee 
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ERROR MESSAGE STRINGS SEQ 0264 

58 074306 177 123 OQ EMS70: .ASCIZ @IS RESET a 

59 074320 105 122 122 EMS71: .ASCIZ @ERRONEOUS a 

60 074333 111 123 040 EMS72: .ASCIZ aIS SET a 

61 074343 104 117 104 EMS73: .ASCIZ @DID NOT SET a 

974360 104 117 104 EMS74: .ASCIZ @DID NOT RESET a 

63 074377 114 117 1235 EMS75: .ASCIZ A@LOST @ 

64 074405 104 125 122 EMS76: .ASCIZ @DURING PACK ACK COMMAND a 

65 074436 042 122 115 EMS77: .ASCIZ @ ‘" (RMER1, BIT 2) a 

66 074464 042 117 114 EMS100: .ASCIZ a@'‘ILR’’ (RMER1, BIT 1) a 

67 074512 042 111 114 EMS101: .ASCIZ @*‘iLF*’ (RMER1, BIT 0) a 

68 074540 104 125 122 EMS102: .ASCIZ @DURING SEARCH COMMAND a 

69 074567 105 122 122 EMS103: .ASCIZ @ERROR a 

70 074576 042 114 102 EMS104: .ASCIZ a@'BC"’ (RMER2, BIT 10) a 

71 074625 042 114 1235 EMS105: .ASCIZ a@'LSC’’ (RMER2, BIT 11) a 

72 074654 110 105 101 EMS106: .ASCIZ @HEADER ERRORS a 

73 074673 102 125 123 EMS110: .ASCIZ @BUS TIMEOUT (04 TRAP) @ 

74 074722 101 104 104 EMS111: .ASCIZ @ADDRESS a 

75 074733 127 110 105 EMS112: .ASCII @WHEN READING/WRITING RH REGISTERS 
76 074775 101 124 040 -ASCIZ @AT THE FOLLOWING a 

77 675017 124 110 105 £&MS113: .ASCIZ @THE SELECTED DEVICE IS a 

78 075047 116 117 116 EMS114: .ASCIZ @NONEXISTENT DEVICE a 

79 075073 015 O12 O00 €MS115: .ASCIZ <CR><LF> 

80 075076 124 110 105 EMS116: .ASCIZ @THE MASSBUS CONTROLLER @ 

81 075126 106 101 117 EMS117: .ASCIZ @FAILED TO DETECT a 

82 075150 116 117 124 EMS120: .ASCIZ @NOT AN 5/3/2 a 

83 075171 103 117 116 EMS121: .ASCIZ @CONTROL STATUS REGISTER 1, RMCS1, a 
84 0752 102 125 123 EMS122: .ASCIZ @BUS ADDRESS REGISTER, RMBA, a 

85 075271 103 117 116 EMS125: .ASCIZ @CONTROL STATUS REGISTER 2, RMCS2, a 
86 975334 105 122 122 EMS124: .ASCIZ @ERROR REGISTER 1, RMER1, a 

87 075366 101 124 124 EMS125: .ASCIZ @ATTENTION SUMMARY REGISTER, RMAS, a 
88 075431 115 101 117 EMS126: .ASCIZ @MAINTENANCE REGISTER #1, RMMR #1, a 
89 075474 105 103 103 EMS127: .ASCIZ @ECC POSITION REGISTER, RMEC1, a 

90 075535 105 103 103 €MS130: .ASCIZ @ECC PATTERN REGISTER, RMEC2, a 

91 075571 115 101 117 EMS131: .ASCIZ @MAINTENANCE REGISTER 2, RMMR2, a 

92 075631 116 117 124 EMS132: .ASCIZ @NOT INITIALIZED BY a 

93 075655 125 116 111 EMS133: .ASCIZ @UNIBUS INITIALIZE a 

94 075700 103 11¢ 116 EMS134: .ASCIZ @CONTROLLER CLEA, I.£. BIT 5 OF a 
95 075742 122 710 O57 EMS135: .ASCIZ @RH/RM ERROR CLEAR (RMCS1, BIT 14) a 
96 07600 104 122 117 EMS136: .ASCIZ @DRIVE CLEAR COMMAND a 

97 076032 104 122 111 EMS137: .ASCIZ @DRIVE STATUS REGISTER, RMDS a 

98 076067 115 105 104 EMS140: .ASCIZ @MEDIUM OFF LINE @ 

99 076110 042 115 117 EMS141: .ASCIZ @°MOL*’ (RMDS, BIT 12) a 
100 076136 104 122 111 EMS142: .ASCIZ @DRIVE FAULT @ 
101 076153 042 104 126 EMS143: .ASCIZ a@'DVC** (RMER2, BIT 7) a 
102 076201 125 116 1235 EMS144: .ASCIZ @UNSAFE @ 
103 076211 042 125 116 EMS145: .ASCIZ @' UNS'' (RMER1, BIT 14) a 
104 076240 1235 110 117 EMS146: .ASCIZ @SHOULD BE SET a 
105 076257 117 106 106 EMS147: .ASCIZ @OFFSET MODE a 
106 076274 040 126 117 EMS150: .ASCIZ @ VOLUME VALID a 
107 076313 042 117 115 EMS151: .ASCIZ @''OM'' (RMDS, BIT 9) a 
108 076337 042 126 126 EMS152: .ASCIZ a’VV"* (RMDS, BIT 6) a 
109 076363 120 101 1053 EMS153: .ASCIZ @PACK ACK COMMAND @ 
140 076405 116 117 124 EMS154: .ASCIZ @NOT SET BY a 
111 076421 117 106 106 EMS155: .ASCIZ @OFFSET COMMAND @ 

112 076441 116 117 124 EMS156: .ASCIZ @NOT RESET BY a 
113 076457 122 124 103 EMS157: .ASCIZ @RTC COMMAND @ 

114 076474 122 177 120 EMS160: .ASCIZ @RIP COMMAND a 


a ee ow 
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S 07651T 177 EMS161: .ASCIZ a (RMOF) @ 
: > 


7 
S 
3 
© 
oO 


7 

"16 076541 EMS 162: 3 <UNUSE 

117 076541 1 125 i22 £MS1635: .ASCIZ @DURING RECALIBRATE a 

118 076565 11 123 040 EMS164: .ASCII @IS INTERMITTENT OR DRIVE DIDNT DROP ON @ 
119 076634 103 131 114 -ASCIZ @CYLINDER a 

120 076646 125 116 105 €MS165: .ASCIZ @UNEXPECTED @ 

121 076662 122 105. 103 EMS166: .ASCiz @RECALIBRATE COMMAND a 

122 076707 042 101 124 EMS167: .ASCIZ a@’‘ATA’' (RMDS, BIT15) a 

123 076734 127 110 105 €MS170: .ASCIZ @WHEN READING REGISTER a 

124 076763 105 122 122 EMS171: .ASCIZ @ERROR REGISTER #2, RMER2, a 

125 077016 116 117 116 EMS172: .ASCIZ @NONRECOVERABLE a 

126 077036 122 105 103 £&MS173: .ASCIZ @RECOVERABLE @ 

127 077053 104 101 124 EMS174: .ASCIZ @DATA a 

128 077061 104 125 122 EMS175: .ASCIZ @DURING WRITE COMMAND a 

129 077107 042 117 120 EMS176: .ASCIZ @'‘OPE'' (RMER2, BIT 13) a 

130 077136 117 116 040 EMS177: .ASCIZ @IN WRITE PROTECT a 

151 077160 103 107 116 200: .ASCIZ @CAN NOT SET Oa 

152 077175 104 111 101 EMS201: .ASCIZ @DIAGNOSTIC MODE ‘'DMD'’ (RMMR1, BIT 0) a 
133 077243 104 125 122 EMS202: .ASCIZ @DURING DIAGNOSTIC MODE @ 

134 07727 117 116 103 EMS203: .ASCIZ @INCORRECT a 

135 077206 042 127 122 EMS204: .ASCIZ a’ WRL*' (RMDS, BIT 11) a 

136 077334 108 130 105 EMS205: .ASCIZ @EXECUTED a 

137 077346 127 1117 124 EMS206: .ASCIZ @WITH COMP ERROR SET a 

138 077573 042 107 117 EMS207: .ASCIZ a@''GO"’ (RMCS1, BIT 0) a 

139 077420 127 122 111 EMS210: .ASCIZ @WRITING a 

140 077431 127 101 123 EMS211: .ASCIZ @WAS RESET BY a 

141 077447 120 122 117 EMS212: .ASCIZ AM INTERRUPT @ 

142 077472 127 1017 125 EMS213: .ASCIZ @WAS NOT GENERATED a 

143 077515 123 105 105 EMS214: .ASCIZ @SEEK COMMAND @ 

144 077533 120 122 117 EMS215: .ASCIZ @PROGRAM TIMEOUT @ 

145 077554 104 125 122 EMS216: .ASCIZ @DURING LOOK AHEAD TEST @ 

146 077604 114 117 117 EMS217: .ASCIZ @LOOK AHEAD REGISTER,RMLA, a 

147 077637 123 105 107 EMS220: .ASCIZ @SEARCH COMMAND a 

148 077657 102 191 104 EMS221: .ASCIZ @BAD SECTOR ERROR 'BSE'’ (RMER2, BIT 15) a 
149 077727 107 040 104 EMS222: .ASCIZ @A DATA TRANSFER COMMAND a 

'50 077760 110 105 107 EMS223: .ASCIZ @HEADER COMPARE INHIBIT ‘HCI’ (RMOF, SIT 10) @ 
'51 100035 116 117 116 EMS224: .ASCIZ 


@NONEXISTENT MEMORY ‘NEM’ (RMCS2, BIT 11) @ 


a eee _—-— ——- 
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FRROR MESSAGE STRINGS 


1 100107 105 130 
2 100126 102 125 
2 1001 35 040 122 
5 100154 122 105 
6 100203 105 130 
7? 100231 105 1390 
: 100257 125 124 
10 100305 107 104 
11 1900344 122 115 
12 100403 137 137 
MS 100442 105 130 
15 100501 122 115 
16 100541 137 137 
17 100577 105 150 
18 100637 105 130 
is 100656 074 103 
21 100713 040 122 
22 100760 040 040 
23 100770 040 122 
24 101035 040 040 
25 101057 040 122 
26 101115 040 122 
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120 EH1: -ASCIZ @EXPCID RECEVDa 
123 £€H110: .ASCIZ @BUSADRA 
115 £€H111: .ASCIZ @ RMCS2~ RMCS.2 
103 £€H114: .ASCIZ @RECEVD SNGPRT DULPRIA 
120 EH223: .ASCIZ @EXPCTD RECEVD DATAa 
120 EH256: .ASCII @EXPCTD RECEVD RGSTRA<CRLF> 
101 -ASCIZ @STATUS STATUS INDEXa 
101 £H336: .ASCIZ @GDADRS GDDATA BDADRS BDDATAa 
103 £H337: .ASCII @RMCS2 STATUS FAILING DATA@<CRLF> 
137 ASCII @ ae eat a<CRLF> 
120 -ASCIZ aFEXPTTBD” RETEVE BIT” ~~" ABRESSa 
105 EH344: .ASCII @RMER1 STATUS HEADER FAILING@<CRLF> 
137 ASCII a mA WORD BIT@<CRLF> 
120 -ASCIZ @EXPCTB--RETEVB NUMBER POSITONA 
120 £H353: .ASCII @EXPCTD RECEVD@<CRLF> 
122 -ASCIZ @<CRLF> RMLA RMLA RMOF @ 
175 STSH1: .ASCII @ RMCS1 RMCS2 ~~ RMDS RMER1  RMER2a@ 
040 -ASCIZ @ RMASA 
115 STSH2: .ASCII @ C DA RMOF RMDC@ 
040 -ASCIZ @ RMEC1 RMEC2a 
115 STSH3: .ASCIZ @ RMDA RMD C RMOF RML Aa 
115 a! -ASCIZ @ RMMR1 = RMMR2-~ RMDT RMSNa@ 
EVEN 


Ee 


=——s =o | een: 
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FREOR MESSAGE STRINGS 


101154 001140 001142 9000000 éD1: WORD $GDDAT,$B8DDAT.0 
101162 001276 C00000 FD110:  .wORD SEO . 

101166 001174 001176 000000 £D111: .WwORD $1MPO,$TMP1,0 

101174 001364 001176 001200 £D114: .WORD RMDTI,$TMP1,$TMP2,0 
191206 001140 001142 001174 ED223: .WORD $GDDAT,$BDDAT,$TMPO,0 


101214 0011346 001140 001136 £D336: .WORD $GDADR.$GDDAT.$RDADR.$BDDAT.O 


101226 001140 001142 001174 £ED337: .WORD $GODAT,$BDDAT,$TMPO,$TMP1,0 
101240 001140 001142 001444 ED355: .WORD $GDDAT,$8DDAT,RMOFO,0 


101250 001336 001346 001350 STSDi: .WORD RMCS1I,RMCS2],.RMDSI ,RMER1] ,RMER2I ,RMASI ,9 
101266 001340 001342 001344 STSD2: .WORD RMWCI,RMBAI,RMDAI ,RMOF I ,RMDCI,RMEC1I 
1071302 001404 000000 -WORD RMEC21,0 

101306 001344 0013572 001370 STSD3: .WwORD RMDAI,RMDCI,RMOFI,RMLAI,0 

101520 001362 001376 001364 STSD4: .WORD RMMR1I,RMMR21,RMDTI,RMSNI ,O 


NO UMPWR OOM VOuh wh... 


a ee @ A 4 et est 1) 


—— 
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FRROR MESSAGE STRINGS 


1 1613 000 EF110: BYTE O 

2 10133 000 000 EFTTI: BYTE 9,0 

3 101335 600 000 000 £€F114: .BYTE 0,0,0 

4 101340 000 000 OOO €F336: .BYTE 0,0.0.0 

; 101 544 000 00C O00 €F357: .BYTE 0,0.0,0.0 

7? 101351 000 000 O00 STSF: .BYTE 0,0,0,0.0.,0.0 


-—————_-—_-—_- 
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ERROR MESSAGE STRINGS SEQ O2¢ 
1 : STORAGE FOR GENERAL DATA TRANSFERRS 
2 101360 BUFFER: 
3 101360 BUFONE: .BLKW 258. 
, 102364 BUFTWO: .BLKW 258. 
6 : STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE 
7 103370 000000 000000 MFGFIL: .WORD 0,0 z2 HEADER WORDS 
8 103374 “BLKW 256. 3256. WORDS OF DATA 
2 104374 177777 .WORD <1 - TERMINATOR IF FILE IS FULL 
11 : STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 
12 104376 000000 000000 USRFIL: .WORD 0,0 32 HEADER WORDS 
13 104402 -BLKw =. 256. =256. WORDS OF DATA 
1% 105402 177777 .WORD -1 : TERMINATOR IF FILE IS FULL 
1g 101360 . =BUFFER 
18 101360 HELP: 
19 101360 200 ASCII <CRLF> 
20 101361 200 ASCII <CRLF> , 
21 101362 114 111 123 .ASCII @LIST OF TESTS@<CRLF> 
22 1014 055 055 055 .ASCII Q------------- @<CRLF> 
23 101416 124 061 011 .ASCII ari CONTROLLER ACCESS TEST@<CRLF> 
24 101450 124 062 011 .ASCII aT2 FORMAT ZEROS@<CRLF> 
25 101470 124 063 011 .ASCII aT3 ZERO FILL TEST@<CRLF> 
26 101512 124 064 011 .ASCII aT4 FORMAT CHECK ZEROS@<CRLF> 
27 101540 124 065 011 .ASCII aT5 FORMAT CHECK ays W/ WCE ERROR@<CRLF> 
28 101603 124 066 011 .ASCII até FORMAT ONESa< 
29 101622 124 011 .ASCII at7 FORMAT CHECK GNES@<CRLF> 
30 101647 124 061 060 .ASCII aT710 FORMAT CHECK ONES W/ WCE ERRORS@<CRLF> 
31 101713 124 061 061 .ASCII arti FORMAT MULTIPLE SECTORS@<CRLF> 
32 101747 124 061 ASCII aTi2 FORMAT W/ HEAD SWI TCHING@<CRLF> 
33 102004 124 061 063 .ASCII aT13 FORMAT W/ MID TRANSFER SEEKa@<CRLF> 
34 102 124 061 064 .ASCII aT14 FORMAT W/ IMPLIED SEEKa@<CRLF> 
35 102077 124 061 065 .ASCII aT15 FORMAT EACH SECTOR ADDRESS@<CRLF> 
36 102136 124 061 066 .ASCII aTl6 FORMAT EACH TRACK ADDRESS@<CRLF> 
37 102174 124 061 067 .ASCII aTi7 FORMAT PRIME CYLINDERS@<CRLF> 
38 102227 124 062 060 .ASCII aT20 READ HEADER & DATA IN LAST SECTOR@<CRLF> 
39 102275 124 062 061 .ASCII a2 READ HEADER & DATA W/ AOE ERRORA@<CRLF> 
40 102341 124 062 062 .ASCII at22 READ INVALID SECTOR ADDRESS@<CRLF > 
41 102401 124 ASCII at23 READ INVALID TRACK ADDRESS@<CRLF> 
42 102440 124 062 064 .ASCII aT24 READ INVALID CYLINDER ADDRESSa@<CRLF> 
43 102502 124 062 065 .ASCII aT25 FORMAT AT OFFSETa@<CRLF> 
44 102527 124 066 .ASCII aT26 IVC FORMAT TESTa<CRLF> 
45 102553 124 062 067 .ASCII at27 FORMAT ERROR TEST@<CRLF> 
46 102601 124 063 060 .ASCII aT30 FORMAT HCE, FIRST HEADER WORD@<CRLF > 
47 102643 124 063 061 .ASCII aT731 FORMAT HCE, SECOND HEADER WORD@<CRLF > 
48 102706 200 -ASCII <CRLF> 
49 102707 117 120 105 .ASCII @OPERATIONAL SWITCH SETTINGS@<CRLF > 
50 102743 055 055 055 ASCII] Qe rr n nn nnn nr nen = a<CRLF> 
51 102777 123 127 111 .ASCII @SWITCH USE@<CRLF > 
52 103014 055 055 055 ASCII] Qemem— eee nen e eee e ee == @<CRLF> 
53 103051 040 040 061 .ASCII a 15 HALT ON ERROR@<CRLF> 
S54 75 040 040 061 .ASCII a 14 LOOP ON TEST@<CRLF> 
55 103120 040 040 061 .ASCII a 13 INHIBIT ERROR TYPEOUTS@<CRLF > 
56 103155 040 040 061 ASCII a 12 ' @<CRLF> 
S57 103164 040 040 061 .ASCII a 11 INHIBIT I TERATIONS@<CRLF> 
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ERROR MESSAGE STRINGS 


58 103215 
59 103241 
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061 .ASCII @ 10 BELL ON ERROR@<CRLF > 
040 :ASCII] a 9 LOOP ON ERROR@<CRLF > 
040 :ASCI] a 8 LOOP ON TEST IN SWR<7:0>a<CRLF> 
O ‘ASCII a 7 1N128a<CRLF > 
040 :ASCII] a 6 TN64@<CRLF > 
0 ‘ASCII a 5 TN32a<CRLF > 
040 :ASCII a 4 T™N16a<CRLF > 
040 ASCII a 3 TN8Q<CRLF > 
040 :ASCII a 2 TNG@<CRLF > 
040 :ASCII a 1 TN2a<CRLF> 
040 .ASCIZ a 0 TN1a<CRLF > 
.END —.200 
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BUFFER 
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= 000377 


101360 





101360 
102364 
00 


00 
065212 
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020000 
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072041 
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073215 


065404 
066626 


EMT 202 


066636 
646 


067510 





EMT 203 


EMT 265 


em eee ee 


067522 


070254 


EMT 347 


070274 


071326 


SEQ 0272 


—_— a = 


CZRMNBO RMOS/3/2 FCTINL TST 2 
SYMBOL TABL 


E 

EMT 35 5630 ESRC = 004000 ILRG76= 
EMT350 071340 FER = 006020 IOTVEC= 
EMT351 071356 FIND = 000001 IPCKO = 
EMT 352 1366 FMT16 = 010000 IPCK1 = 
EMT353 071372 FNCDTB 064566 IPCKe = 
EMT354 071402 FNCMSK= 000077 IPCK3 = 
MT 36 5640 FO = 000002 IR = 
EMT37 065650 FI = 000004 IvC = 
MTG 5344 F2 = 000010 LBC == 
EMT40 065660 F3 = 000020 LET = 
EMT41 5666 F4 = 000040 LF = 
EMT42 065676 GENBUF 035104 LODEV 
EMT43 065710 GET 035770 S = 
EMT44 065720 GETBUF 001336 ia 668 
EMT45 065730 GETINX 001524 LST = 
EMT46 065740 GETSTS 035704 LSTRK 
EMT47 065750 GO = 000001 MCLK = 
EMTS 065352 GTSWR = 104407 MCPE = 
EMT5O 065756 HCE = 090200 MDF = 
EMT51 (0657 HCI = 002000 MDPE = 
EMT52 066 HCRC = 000400 MEDENB 
EMT53 066016 HELP 101360 MF GF IL 
EMT54 066034 HT = 000011 ] = 
EMT55 066044 AE = 002000 MIXED 
EMT56 066056 IBSAVE 060152 . 
EMTS57 066074 IDXMSK= 000077 MOH = 
EMT6 065360 E = 000100 MOL = 
EMT60 066104 ILF = 001 MRD = 
EMT61 066122 ILFO2 = 000002 MS = 
EMT62 38066142 ILF24 = 000024 MSC = 
EMT63 066156 ILF26 = 000026 MSDRVS 
EMT64 066160 ILF30 = 000030 MSE = 
EMT65 0662 ILF32 = 000032 MSER = 
EMT66 066220 ILF34 = 000034 MSGDRV 
EMT67 066232 ILF36 = 000036 MSHELP 
EMT7 065 ILF40 = 000040 = 
EMT70 066244 ILF42 = 000042 MWD = 
EMT71 066254 ILF44 = 000044 MWP = 
EMT72 066264 ILF46 = 000046 MXF = 
EMT73 066302 ILF54 = 000054 N 
EMT74 066320 ILF56 = 000056 NDTMSK= 
EMT75 066330 ILF64 = 000064 NED = 
EMT76 06635 ILF66 = 000066 NEM = 
EMT77 066360 ILF74 = 000074 NONE 
ENRGDT 065324 ILF76 = 000076 NOP = 
EQUALS 06343 ILR_ = 00000 NOTAVL 
ERR = 04 ILRGSO= 000050 NOTPRS 
ERRNMB 061022 ILRGS2= 000052 NOTRM 
ERROR = 104000 ILRG54= 000054 NSA = 
ERRTYP 060154 ILRG56= 000 OCC = 
ERRVEC= U0 ILRG6O0= 6 D = 
ERTYOO 061030 ILRG62= 000062 OF FSET= 
ERTYO1 061035 ILRG64= 0 4 = 
ERTYO2 061045 ILRG66= 000 S 
ERTYOS 061054 ILRG70= 000070 OPE = 
ERTYO4 061062 ILRG72= 000072 GP] = 
ERTYGS 061065 ILRG74= 000974 OR = 


000200 


a ee ee -  e —_——--— 
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v 

— 
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nnaonkuukanu 


ae) 
P °] 
Ww 
nmnonhnninrnk hou 


2) 
4 
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2 
ee 


x 

— 

oe) 
nou ot tt 


000022 
000022 


001406 
001462 


001442 


SEG 027% 


CZ7RMNBO RMOS5S/3/2 FCINL TST 2 


SYMBOL TABLE 
RMWC = 
RMwCl = 00134 
RMWCO 86001414 
ROA = 100000 
ROB == 940000 
RTC = 000016 
R? — =%00000 
| SADMSK= 000377 
| SAVREG= 106414 
| SAT = 9000001 
SA16 000620 
| SA2- = 290002 
SA = 00904 
SAt = 00.0010 
— OF 
SCOPE = 
SCTMSG 063346 
SCTMSK= 003700 
SCO = 000100 
SC? = 000200 
SC2 = 000400 
$¢3 = 001000 
S¢4 = 002000 
SEARCH= 30 
SECERR 037620 
SEKSTS 41 
T 032142 
T2 4 
SIZCLK 0 
I = 04 
= 020024 
STACK = 001100 
STANDA 007020 
START 005432 
START? 005422 
START2 0054 
STCDRV 055102 
STKLMT= 177774 
TOP = 057532 
STSD1 101250 
STSD2 101266 
STSD3 101306 
STSD4 101320 
STSF =: 101351 
STSH1 100713 
STSH2 100770 
STSH3 = 101057 
STSH4 101115 
SwR 001154 
SWREG 000176 
SwO. = 000001 
SwOO = 000001 
SwO1 = 000002 
swO2 = 000004 
SwO3 = 000010 


wv 

= 
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w 
nHnnnnhninnnntnnnnnnnnnnew 
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000020 
000040 


024666 


es 
23 


UNTON 


025204 


061530 


yaa 001114 


(M5 = 
$CM4 = 000005 
SCNTLC 062426 
SCNTLG 062440 
SCNTLU 06243 
$ 00125 
SCRLF 001217 
$DBLK 056172 
SDDWO 001506 
$DDW1 001310 
$DDW 001312 
$DDW 001314 

DD 001316 
$DPW5 = 001320 

DDW6 3 001322 
$DDW7 = 001324 


$LF 
$LFLG 063343 
$LPADR 001122 


——LE LT 


cot 001124 


$RDOCT 062512 
$RDSZ = 900010 
SRESRE 055644 
$RMO 366 


SSWRMK= 000000 
$SwO8T 057450 
STESTN 001226 
STIMES 001206 
$TKB 001162 


SEQ 0274 


scsi 


-—-—--— 
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SYMBOL TABL S€Q 0275 
STKCNT 061220 STMP1 001176 STRAF2 062654 STYPEC 056642 $VECT2 001274 

STKINT 061230 $T™MP2 001200 STRP = 000016 STYPEX 056762 S$XOFF = 000023 

STKQEN= 061227 STMPS 001202 $STRPAD e $TYPOC 056226 $XON = 000021 

SIKQIN 0612 STMPS = 001204 STSTM 001104 $TYPON 056242 $XTSTR 057006 

$TKQOU 061224 T = 32 STSTNM 001116 $TYPOS 056202 $$GET4= 000000 

STKQSR 061226 STTYIN 062416 $SUNIT 001234 $$SWO8= 000032 

STKS 001160 STPFLG 001175 $TYPBN 055702 SUNITM 001110 SOFILL 056425 

$TKSRV 061300 $TPS 001164 $TYPDS (055756 $SUSWR 001246 -$X = 001100 

STMPO) 001174 STRAP 062614 $TYPE 056430 $VECT! 001272 


- ABS. 105404 
001 
ERRORS DETECTED: O 
VIRTUAL MEMORY USED: 61696 WORDS ( 241 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
C7RMNB.BIC,CZ7RMNB/C=CZRMNB.DOC,CZRMNB,SYSMAC/M 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 


SS$GETS 
$$ 5WwO8 


42-1 
42-1 
42-1 
42-1 
42-14 
42-14 
40-1* 


45-1 


35-496* 


43-1 
38-1* 


41-1* 


10-140 
44-20 


35-517% 
45-1 


41-1 


R22 


35-288* 
35-534* 


45-1 


11-28 
44-104 


13-32 


35-301* 
35-550* 


45-1 


6-0 
10-25 


11-62 
44-114 
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13-134 
13=>41 


6-0 
10-23 


te 


42-14 
42-14 


13-232 
Fa 


6-0 


13-325 
13-740 


13-C21* 


36-78* 


6-0 


42-1 
42-1 
42-1 
42-14 
42-14 


13-450 
13-790 


13-D22* 
25~-40* 


42-1 
42-1 
42-1 
42-14 
42-14 


13-546 
13-a39 


13-D35* 


3 
36-112* 


SEQ 0276 
42-1 42-1 
42-1 42-1 
42-1 42-1 
42-14 42-14 
42-14 42-14 
13-639 = 13=763 
13-A46 = s_-« 135-44 
13-D48*« 13-E81* 
25-53* 25-54% 
25-156* 25-157* 
25-257 25-271 
25-388" 25-402 
26-34% 26-92 
* 29-67% 
29-212* 31-31% 
31-104* 31-106 
33-35* 33-49 
33-270* 34-16* 
34-81* 34-82 
35-190" 35-191 
35-417* 35-442 
9-1 59-6 
6-04 6-04 
41-1 41-1 
45-1 45-1 


V——_—_—— Oe eee 
ee eee ——= 


CZRMNBO RMOS/3/2 FCINL TST 2 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


OEE on 


10-117* 


43-1 


42-1 
42-1 


43-1 
14-20 
43-1 


48-2 
41-1 


ieee 


42-1 


10-121* 


42-] 
42-1 


43-1% 


43-1 
43-1 


48-2* 


13-753 


35-468* 
36-60* 


42-18 


11-63* 


36-76" 


42-1* 


11=70* 


42=1% 


44-54 


43-1« 
43-1 


35-481* 
36-77* 
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11-97% 


43-1 


11-98 


43-1 


13-751* 
13-D50* 
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45-1 
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42=1 
45-18 
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BIT15 4-4844 
BIT2 4-4844 
BITS 4-4844 
BITS 4-4844 
BITS 4-4844 
BIT6 4-4844 
BIT7 64-4844 
B1T8 4-4844 
BIT9 4-4844 
BLNKS1 49-404 
BLNKS2 10-132 
BLNKS3 49-384 
BLNKS4 10-82 
BOT 44-81* 
BOTFL 44-62" 
BPTVEC 4-4844 
BSE 4-6744 


44-109 
, 13-030 


35-320 
35-426 


23-24 


11-48 


44-102 
44-112 


13-D37 


49-394 


44-117 


44-115* 


16-225 


13-C92 §=13-C924 1 
13-D3354 13-D335" 1 
13-E18 13-E184 1 
135-E554@ 13-E62~ i 
13-F12 8 13-F124 1 
13-460 13-556 1 
13-E10 16-3354 
4-562 4-581 
4-580 4-617 
4-579 4-616 
4-578 4-615 
4-577 4-632 
4-614 4-631 
4-597 4-613 
4-596 4-612 
4-573 4-595 
4-572 4-594 
4-593 4-609 
4-570 4-608 
4-607 4-624 
4-623 4-642 
4-622 4-641 


44-1614 
44-162# 


25-431 


EF 


K 6 
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13=C994 


13-D4464 


13-E47 


13-E 684 


13-867 


13=D05 


13-E72 
13-962 


13-D054 


13-E 724 


13=-:57 


4-728 
4-727 


13-D09 


13-D584 
13-E514 
13-E 724 


13-;58 


42-1 


SEQ 0283 


13-D094 
13-079 


13-E514 
13-E 79 


13=<41 


42=1 


13=-D094 
13-D794 
13-£53 

13-£ 794 


13-=24 


43-1 


43-1 
15-165 


15-167 


42-1 
18-90 


CZRMNBO RMOS/3/2 FCINL TST 2 
CROSS REFERENCE TABLE (CREF v01-05 ) 


DRIVES 
DRO 
DRVCLR 


30-124 
12-6 


25-255 


31-127 


34-18 





61-16 


11-27% 
44-96% 


22-16 


13-=03 


25-469 


43-1 


33-31 


34-30 


15-=85 


25-489 


35-43 


13-A37 


35-413 


35-466 


i. 6 
MACRO V04.00 4-APR-81 11:45:33 PAGE S-9 


44-116* 


18-174 


35-416 


35-469 


13-553 13-646 13-770 13-864 #£13-959 
13-796 13-846 13-A37 3 13-A42) 8 13-A53 
13-£26* 13-F08 61-34 

13-5435 13-711" 13=741 13-751 13-<00 
13-817 13-B99 13-C€97 13=-E60 61-44 
44-1634 

43-1 43-1 43-14 43-1* 43-1* 
12-30 41-1 41-1 49-3 49-5 
49-17 49-18 49-19 49-20 49-21 
61-20 61-21 61-22 61-23 61-24 
61-34 61-35 61-36 61-37 61-38 
61-48 61-49 61-50 61-51 61-52 
61-62 61-63 61-64 61-65 61-66 


ee, 6 ee -——_ oe -_ - 


SEQ 0284 


13=:54 
13-852 


13-<20 


44-180 


49-8 

49-23 
61-25 
61-59 
61-53 
61-67 
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TABLE ‘CREF vO1-05 ) 


SEQ 0285 


{ FCTNL TST 2 


CROSS REFERENC 


CZRMNBO RMOS/3 


31-127 =—6.31-128 = 334-30 


29-195 


25-42 


25-467 8925-485 25-491 355-423 50-77 50-78 50-85 50-86 


25-452 





55-24 
55-104 


Oo 
eal 
w 
' 
co 


8-690 
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(CREF vO1-05 ) 


CZ7RMNBO RMOS/3/2 FCTNL TST 2 
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35-225 


53-193 
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57-1084 


55-205 
53-194 
53-223 


55-202 
53-185 
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53-182 
53-194 
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53-105 
53-134 
55-182 


—— 
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53-67 


3-99 


EMS152 53-50 


EMS151 
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SEQ 0285 


CZRMNBO RMOS/3/2 FCINL TST 2 
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ee _ 


CZRMNBO RMOS/3/2 FCINL TST 2 
CROSS REFERENCE TABLE (CREF VvQ1-05 ) 


1 
EMT100 


-24 
8-197 


53-199 


5 7=264 


53-207 


53-148 


53-208 


53-227 
53-215 


53-70 


53-130 
53-148 


57-278 


57-304 
57-32A 


53-177 
53-60 
53-132 


53-139 
53-149 


53-44 
53-187 
53-218 
53-65 
53-194 


53-135 


53-142 
53-178 


53-45 
53-190 
53-219 
53-67 


53-195 
53-209 


53-146 


53-48 
53-70 
53-208 
53-57 


53-199 
53-66 
53-139 


53-179 
53-179 


53-46 

53-191 
53-220 
53-119 


53-196 
53-210 


53-147 


53-49 
33-75 
57-59# 


5 
57-644 


D7 
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3-201 
3-117 


53~141 


55-189 
53-185 


53-47 

53-192 
53-226 
53-143 


53-197 
53-211 


53-199 


53-50 
55-197 
53-61 
53-195 
53-222 


53-225 


53-181 


53-221 
53-201 


53-62 

53-193 
57-454 
53-144 


53-198 
Sa~215 


53-147 


53-185 


57-434 
53-228 


53-64 
53-194 


53-178 


53-199 
53-214 


55-52 
53-139 


55-234 
57-634 


53-186 


‘53-189 


553-229 


53-65 
53-195 


53-182 


53-200 
53-215 


53-54 
53-182 


53-108 
53-235 


53-187 


53-200 


53-230 


53-73 
53-200 


53-183 


53-201 
53-220 


57-574 
53-189 


53-109 
57-614 


53-188 
53-201 
53-231 


53-140 
53-202 


53-194 


53-202 
53-221 


53-194 


53-134 


SEQ 0289 


53-192 
53-221 
53-233 


53-141 
53-203 


53-195 


53-205 
53-222 


53-205 


53-135 


ee 


—>————E 
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 EMT101 8-200 53-674 
2 


EMT106 8-215 53-72 


EMT11 8-27 53-114 
EMT110 8-221 53-744 
EMT111 8-224 53-754 
EMT112 8-227 53-764 
EMi115 8-230 53-774 
EMT114 8-233 53-784 
EMT115 8-236 53-794 
EM1116 8-239 53-804 
EMT117 8-242 53-814 
EMT12 8-30 53-124 
EMT120 8-245 53-824 


EMT155 8-332 53-1114 
FMT156 «8-335 53-1128 
EMT157 8-338 53-1134 
EMT16 8-42 53-164 

EMT160 8-341 53-1144 
EMT161 8-344 53-115¢4 
EMT162 347 53-1164 


8- 
EMT163 53-1174 


= oe ea Rem ee atone EE ee Oe meee ee — eee -- 


ee eee 
ee —— 


ae 
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EMT225 8-447 53-1494 


EMT225 53-1514 
EMT226 53-1524 
EMT227 53-1534 
EMT23 8-57 53-214 
EMT230 53-1544 
EMT231 53-1554 
EMT232 53-1564 
EMT233 53-1574 
EMT234 53-1584 
EMT235 53-1594 
EMT236 53-1604 
EMT237 53-1614 
EMT24 8-50 53-224 
EMT240 53-1624 
EMT241 53-1634 
EMT242 53-1644 
EMT243 53-1654 
EMT244 53-1664 
53-1674 


te 
wv 
~ 
~ 
x 
Ww 


¢ ————— 
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FROSS REFERENCE TABLE (CREF VO1-05 ) 
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eee — 


eee 


LAO A 
™N 
— 
a 


DARA 


i 
4-3 SL) 
™ 


MAAAA AAA AAA 


> ie ie hh i et 


53-2174 


ee ee em tenemos ——— 
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| 3a 
EMT336 4 8=68-351 a Sc, 53-2248 


EMT 8-154 53-524 
EMT63 53-534 

EMT64 8-160 53-544 
EMT65 8-163 53-554 
EMT66 8-166 53-564 
EMT67 8-169 55-574 
EMT? 8-21 53-94 

EMT 70 8-172 53-584 
EmMT71 8-175 53-594 
EMT 72 8-178 53-608 
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IDXMSK 


4-5114 


Nm 
R 


SLSLLS LS LSey 


32-51 


10-23% 


32-97 


10-25* 





32-101 
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33-236 


Le et we ee ee - 
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35-128 


35-131 


33-81 


35-128 
50-80 


35-134 


13-347 
13-835 


35-172 


35-145 
50-83 


13-372 


35-190 


35-148 
50-84 


50-59 


50-58 
50-87 


SEQ 0296 


50-69 


50-67 
50-88 
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CROSS REFERENCE TABLE (CREF v0Q1-05 ) 


IvC 


—_ 
' 
™N 


—d and 3 
™N 
Ww 
oud 
zz 


13-801 


12-51% 
16-265* 


10-109 
34-30 


49-214 
13-D11 


49-224 
49-84 


3 
16-40 
16-273* 


29-146 
35-88 


1/29 
34-71 


35-50 


24-74 


50-86 


13-B32 
50-58 
50-75 


3 
16-283* 
16-322 


29-156 
35-252 


35-63 


24-78 


33-204 
52-214 


29-164 
50-59 


13-836 
50-59 
50-76 


49-16 


13-964 


24-125 


61-74 


29-157 
35-505 


35-66 


28-31 


34-29 


32-51 
50-60 
50-74 
50-88 
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25-198 25-199 29-85 29-208 
50-60 50-62 50-63 50-64 
50-77 50-78 50-79 50-80 5 
57-79 

13-=08 13-=99 13-944 13-243 
35-27 35-30 

29-162 29-167 29-195 32-37 
35-506 35-528 935-533 36-35 
35-453 35-456 

32-69 32-73 «33-24 «= 33-61 
50-61 50-62 50-63 50-64 
50-75 50-76 50-77 50-78 


16-58 


32-40 
36-36 


33-64 
50-65 
50-79 


16-363 


33-68 
36-40 


335-155 


50-66 
50-80 


33-102 
50-69 
50-83 


16-384 


33-145 
36-45 


35-85 
50-67 
50-81 


SEQ 0297 
33-171 835-111 
50-70 50-71 
50-84 50-85 
17-50 26-62 
33-146 33-153 
35-86 35-550 
50-68 50-69 
50-82 50-83 
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CROSS REFERENCE TABLE (CREF v0O1-05 ) SEQ 229% 
/ OR 4-7354 
PACACK 4=5104 16-119 
PAKACK 4-SO9# 4-519 #£«+15=-125 
PAR 4-5784 24-137 24-141 24-153 29-30 33-24 33-29 33-34 35-41 35-46 
| PAT 4-7384 
PDA 4-6284 
PFECH 44-67 44-1724 
PFECH1 44-172 44-1734 
PFECH2 44-172 44-1764 
PFECHS 44-172 44-1794 
PFECH4 44-172 44-1818 
PGE 4-7324 
PGM 4-5584 34-29 
PHA 4-6294 
PIP <a Eat 16-150 29-156 29-177 29-182 33-145 33=+216 33-221 34-29 35-505 35-511 35-516 36-35 
PIRQ 4-4844 
PIRQVE 4-4844 
FS 4-6264 
4-4844 
PR1 44-4844 
PR2 4-4844 
PR3 44-4844 42-5 
PRS 4-4844 
PRS 4-4844 12-49 42-9 
= par or 10-26 13-6 20-40 21-34 22-7 23-11 28-22 30-14 
PRIERR 13-97 13-118 13-199 13-221 13-296 13-316 13-389 13-412 13-514 13-535 13-610 13-630 13-703 13-726 
13-827 13-847 13-922 13-942 13-:18 13=:38 13=;14 13-;34 13-:91 13-<12 -13-<74—_‘13=<95)—ss«*13-=58 0 3=s_:« 13==77 
iE ae voce 13-?20 13-?76 13-a25 #«%13-a971 13-A29. =13-A99 13-830 13-888 13-C12 £13-C88 13-D09 # 13-£51 
PS 4-484 4-4844 
PSEL 4-7194 
PSW 4-4844 
PUT 13-63 13-87 13-108 13-164 13-189 =13=211 13-262 13-286 13-306 13-355 13-379 13-402 13-480 # 13-504 
13-525 13-576 13-600 13-620 13-669 13-693 13-716 13-793 13-817 £13-837 13-888 13-912 13-932 13-984 
13-:08 13-:28 13-:79 13-:04 13:24 3-;80 13-<02 13-<63 13-<85 13-=46 13-=68 #£13->21 13->65 13-709 
13-765 13-814 13-069 13-080 13-A06 13-A19 13-A72 13-A88 13-819 13-B77 £+13-CO02 13-C77 #8 13-C99 3813-D90 
13-E40 13-E62 13-F23 # 15-128 15-190 16-88 16-120 16-154 16-183 21-284 
PUTBUF 7-04 16-49 16-284* 21-31 
PUTINX  7=-OF 13-56 13-81 13-157 13-183 13-255 13-280 13-348 13-373 13-473 13-498 13-569 13-594 13-662 
13-687 13-786 #£13-811 13-881 13-906 13-977 # 13-:02 3-:72 3-:98 3-;71 13-<54 =—- 13-=38 2 =(13->10 3 13->56 
13-700 13-756 3-005 13-a62 13-874 #&4®413-a99 3-A13 135-A69* 13-A70* 13-A78 #£«+13-B68 #£=13-C68 #£13-D82 = # 13-€31 
13-F15  15-126* 15-127* 15-186* 15-187* 15-188* 15-189* 16-63 21-32 24-144 
— 4-4844 10-23* 10-23* 48-1* 48-1* 48-1* 48-1* 48-1* 48-1* 
R6 4-4844 10-23 10-23* 10=-23* 
7 4-4844 ? 
RCLSTS 15-213 16-171 33-154 5 
aL 4-5254 ! 
PD-HR = =11=-712 11-65 11-82 45-1 47-14 
PX. IN 46-1 47-14 
RDOCT 11-35 11-49 47-14 
RDY 4-7224 23-21 23-22 863 24-88 24-91 31-33 
READY 12-374 14-24 
RE CAL 4-5034 15-185 16-153 
RESREG 44-156 47-14 : 
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RMDC I 
— RMDCO 


_- RMDS 
~RMDS! 


CELE: 
378 


AAAAATAR 
eres" 


— —- 
bam 


13=>58 


19-14 


13-C21 


13-A7? 
-69 


34 
13-A77* 


34-81 
13-160 


13-202 13-258 © -13-a07 
16 
13-2358 13-328" 13-453 
13-216* 13-226 13-289 
13=C41* 13-E03* 15-183* 
16-116 16-150 24-106 
29-146 29-155 39-162 
31-126 32-23 © 32-25 
33-173 38-174 33-185 
35-119 35-252 35-318 
35-548 35-550 36-34 
44-26 
31-94 34-94 59-15 
13-22. 13-D17—«-13-p22 
24-159 24-154 25-80 
55-492 36-89 56-105 
32-55 32-57 32-58 
35-114 33-24 33-29 
33-155 33-232 33-236 
35-47 35-83 35-85 
35-189 35-279 35-282 
35-356 35-365 35-367 
35-479 35-481 35-483 
13-B04 13-832 13-834 
25-432 27-27 29-32 
33-101 33-103 %$3-116 
35-114 35-116 35-203 
35-284 35-466 35-468 
3-112 59-13 
59-17 
59-17 
13-258 13-351 13-476 


13-064 


13-549* 


13-572 
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92 
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16-84 
29-179 
33-171 
35-250 
36-88 


13=:75 


13-€ 33 


13-:69 
13-a33* 
35-174 


13=; 74 


SEQ 0500 


135=-F 17 


13=-:70« 
13-234 


15=<37 
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| STCDRV 36-274 
| STKLMT 46-4844 
STOP 42-1 42-54 
| $TS01 55-1 55-2 55-8 55-10 55-11 55-12 59-1 34 
| STSD2 55-1 55-2 55-8 55-10 $5-11 $5-12 59-144 
| STSD3 59-164 
| STSD4 386551 55-2 55-8 55-1 55-11 $5-12 59-174 
STSF 56-1 56-1 56-1 56-2 56-2 56-2 56-8 56-8 56-8 . 56-10 56-10 
56-11 56-12 56-12 56-12 60-74 
STSH1 54-1 54-2 54-8 54- 54-11 54-12 54-13 58-214 
STSH2 54-1 54-2 54-8 54-9 54-11 54-12 54-13 58-234 
STSH3 58-254 
STSH4 -1 54-2 54-8 54-9 54-11 54-12 54-13 58-264 
SwO 4-4844 
Sw0O 4-484 4-4844 
Sw01 4-484 4-4844 
SwO02 4-484 4-4844 
Sw03 4-484 4-4844 
SWO4 4-484 46-4844 
SwO5 4-484 4-4844 
SwO06 4-484 4-4844 
SwO7 4-484 4-4844 
SwO08 4-484 4-4844 
SWwO9 4-484 4-4844 
Sw 4-4844 
SW10 4-4844 
SW11 4-4844 
SW12 4-4844 
SwW15 4-4844 16-245 44-14 
SW14 4-4844 } 
Sw15 4-4844 
Sw2 4-4844 
Sw3 4-4844 
SW4 4-4844 
SwW5 4-4844 
SW6 4-4844 
SwW7 4-4844 
Sw8 4-4844 
Sw9 4-4844 
SwWR 6-04 10-23 10-23 10-23* 10-23% 10-23* 10-28 16-265 42-1 42-1 42-1 
yy 42-1* 42-1* 42-1* 43-1 43-1 43-1 43-1 43-1 44-14 45-1 
-|® 
SWREG 5-1 10-23 10-28 45-1 45-1 45-1 
SYSTAT 10-76 49-234 
TAT 4-5374 
TA16 4-533# 12-64 
TA2 4-5364 12-64 
TAS 4-5354 12-56 
TA8 4-5344 
TADMSK 4-547# 26-66 
TAG -6644 
TAGADR 5-94 6-0 
AP 4-6414 
TBITVE  4-4844 
MOUT 13-68 13-91 13-112 =6©13-169) = 13-193) 13-215) 13-267) = 13-290) «13-310 §=13-360 )3=_« 113-383 
13-529 §=13-581 = 13-604 13-624 =: 13-674) Ss: 13-697) = - 113=720) Ss - 13-798 )3=—s-«*113=821 0S: 13-841 = 13-893 
T3-:12 8 135-:32 13:84 813-;08 13-:28 13-;85 13-<06 13-<68 13-<89 13-=53 = 13-=72 
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56-10 


42-1 
45-1 


13-406 
13-916 
13=>26 


56-11 


13-485 
13-936 
13->70 


SEQ 0502 


56-11 


42-1 
48-1 


MACRO V04.00 4-APR-81 11:43:33 PAGE S-28 


CROSS REFERENCE TABLF (CREF vO1-05 ) 


E 


SEQ 0305 


CZRMNBO RMOS/3/2 FCTINL TST 2 


oO Maem ys © wm 
2 N00 1-0 NO ROe 
ti nm Yt been ow 
a tt d it 't 
pf NNN) — UM SF wr 00 
at Cee ol ool oe eel el a a 
© Some es Jom x 
- _- 
. O56 BB wk enn 
ah MMMM) On WM sr wri mem 
ate ~~ Fe E= ed eel ool eel el a 
wn 0 0 0 Os Mw) ve) 
aaa - - 
a Om FM WONO 
eS "WW HYDE DANN 
i itt Pe ee gee 
—- al al ale) OrKMvyyrnwn 
on ee — f= eee eee = Vf Vf WV 
~~ wt a + nr oo 
oO on wn Owonuwo-wO 
a “Ose: mm OUA ST st oe 
1 jt 7 on © oe 
NO ele ale) Or HK MMTNWN 
on ee = = Oe Ke ST SL 
~~ MW © wh 
O° mwwmosm MORM st © 3 
a OUM Own COMCOM) WU ste = 
e . 2 8 8 F '#rer)rtttist4 ' 
wm MMMM) wr Or  — MM TONY ~ 
ato Sl ol sel el ll el el el cel eel Se w 
™N OMOUW NW 
wT 
20 s SONM)0O SO OW Oswno 
w ‘acer’ O— OVOM — — wn 
: i : 2. g ie iets ' 
pe PYM ROM Or HK MMsasnwn w 
aes cree MM | oe oe oe ool ee Ge wr 
Oo NST wo wv 
©S ™N Ore Mw kh WMA TN ON 
] 4 ‘ ite #ttt_t#teieet#e ' 
we we) MRO RIN O Or HK MMT wT 
— ~ eee |) oe ee eee “wr 
™~ is ¢) i a Oo MN 
00 & oO MOUAS Seaman ~ 
sat = 7,2 3 O- OT BN — w 
t A jetted 'ttbite#eetes ‘ 
me LF a) ROM RIN OO Or — MIM TAT w 
—T ~w mene CU eee ee AT AT wr 
<7 Fe) rn UM wT wT 
NO Oo OW oh AewTanu MM BR CW 
a _- Weer lic WOW Imeem FU 
: ' pteote #rptrttietet¢tt H 
MO wy MMMM ~~ Or K—NUMMTnnm <~v 
=o ™N EP Ferre TSS « 
mou ww O- © © oe wy 
Oo ™N pe Nt mMwrovcw ™) i) 
{— = WTBANVe Wn OO Vem erm KR 
' t ee 8 ££ § rere eee eg F 
MYO wv MIM OUM) <r OOK UMMTMMN CU 
rf Mw C2 SF ES = | dh el ooh cel eS gi i co 
aoa 
mao oO OmMu Mm * ~) oOo oO oO 
nN © WATMNOTM RBOMe-OM WT ws OO 
TT 1 yee Fy es ote wow) 
' 4 14 : 
MO ~w TMMOMssr BROOK MMe wtMH CU 
-- ™N Toc a Oe el el eel el el i i” i ee 
wy * n ™N i 
>, mr mM mee oe SP OUMSS IAA = s wo 
BA— MO TOA OS teem eNO tee ee vO 
tt 2 # 'etidtt Tes Reka e SF 
' dh 
MOwW Ov wv TMMOAUM ST STOO NMOTN— © 
aS ee me STecrrrm— Semrrrewyyr 
Oran - Ww a aN — 
— Ch « mo oO AA IN & O00. 4 mM Oo 
Ten TE TUTTI TI LTTE PLIST ot 
MeN ODO = INO OI OUI OUR II CU RUC CUCU CI CU CUCU CU KU NICU CUCU TMM CUMIMR. TOOK TUMAaTNAR OO 
cer eer Myre tet mm mem re em ree Myer. oe 
RRReRrh & z2>2R 22 2 RRR 
OOS FINIA EM SARRSM RAM ASSSSSSINAGASS « © Oya © Nh x 
fe = Sr eOOY IM KAO laos MF AMVUMATT K—ORMMTO NST 8 =) RN 
PRELUDE ET TTT PEP TTPO TTT TATE T TT EET Ue TET T 
WAS PET MMMM MMMM MMMM MMMM main hmmm se bade amotAdand 
a eee se ee ce ee noel el ce eel ee el ce el el el el el el el el el el oe oe ee ee el el el ee 
ua Ww a 
wu> w OK NUMTNOM ORK tUMsrnwor Qa = > ~Y w2zw 
ywe EEE EE NCU NOUN OU NI CUM MIM Tin or fe 
vis#anobouvnannnnnnnannnnnanvnsos 2 Fe > 
aol “ WYNNNNNNNNNNYM >> > > 
i hb he hh he —-— —- 


4-742 


a3! 32-55 52-59 33-232 4 8=0633-264 = 35-269 = 355-279 = 55-282 = 335-287 


24-50 


4-567# 31-72 
4-7468 


EY A NE Gee ae “ = . 


PPD eee. Oe. ones ee cee © 


—— 


' ens eee see 
’ 
' 
' 


CZRMNBO RMOS/3/2 FCTINL TST 2 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


UNT OF F 


10-120 4 
10-131 


9-314 


49-324 


4-583 


13-146 


17-29 


16-266* 


16-116 
34-29 
34-70 


13-422 


25-240 
13-400 


16-274 


25-196 
35-30 


13-730 
35-479 
15-618 
13-142 
13-865 
13-A54 


es"2e3 


10-37 
13-337 


16-325 


35-482 
13-714 


13-782 
13-905 


29-157 
35-506 


50-77 


13-930 
13-279 
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29-206 


55-544 


50-78 


13=:26 
13-333 
13=:55 
13=C45 


35-279 


10-124 
13=:59 


29-211 
35-549 


35-311 


10-126 
13-B57 


13=C49 


32-26 
36-36 


13-E12 


33-106 
36-56 


13-554 
15-<39 
13-E08 


50-81 


52-584 


33-145 
36-61 


13=593 
13=<53 
13-€ 30 


50-82 


335-146 


13-647 
13-=22 
13=F 09 
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4-4754 48-1 
46-4744 

4-4744 46- 
4-4744 45- 
4-4754 37- 
4-4738 42- 
4-4754 

464-4754 47-1 
4-4744 38-1 
4-4744 39-1 
4-4738 41-1 
4-4744# 40-1 
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